Программа на вход получает натуральные числа. Количество их неизвестно, ввод чисел заканчивается вводом 0. Количество чисел не превышает 1000. Сами числа не превышают 30000. Программа должна вывести одно число: сумму все трехзначных чисел кратных 4 или вывести "NO", если таких чисел нет. Помогите пж 4 дня над этим сижу
Ответы
Ответ дал:
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.
Вас заинтересует
2 года назад
2 года назад
8 лет назад