Здравствуйте решить задачу(pascal)!
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 5.

MeilisS MeilisS    1   27.03.2020 10:46    0

Ответы
BANDOLEROS BANDOLEROS  12.10.2020 06:44

PascalABC.Net

begin

 ReadSeqIntegerWhile(x -> x <> 5).Where(p -> (p mod 3 = 0) and (p mod 10 = 4)).Sum.Println;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика