Программа на вход получает натуральные числа. Количество их неизвестно, ввод чисел заканчивается вводом 0. Количество чисел не превышает 1000. Сами числа не превышают 30000. Программа должна вывести одно число: сумму все трехзначных чисел кратных 4 или вывести "NO", если таких чисел нет. Помогите пж 4 дня над этим сижу

Ответы

Ответ дал: BobbyFresnel
0

===== PascalABC.NET =====

Используется последовательность, а она в памяти не хранится, поэтому может быть обработано произвольное количество чисел с расходом памяти на хранение одного единтственного - текущего.

begin

 var s := ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p.InRange(100, 999) and (p mod 4 = 0))

     .Sum;

 if s > 0 then

   Print(s)

 else

   Print('NO')

end.

Вас заинтересует