Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел. программа получает на вход целые числа, количество введенных чисел неизвестно, последователньость чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность) количество чисел не превышает 1000. введенные числа по модулю не превышают 30 000. программа должна вывести два числа: сумму последовательности и количество четных чисел, кратных 5. пример работы программы: входные данные: 4 60 15 0 выходные данные: 79 1
Внимание! Если программа не работает, обновите версию!
begin
var (s,k):=(0,0);
ReadSeqIntegerWhile(t->t<>0)
.ForEach(t->begin s+=t; if t mod 10=0 then k+=1 end);
Writeln(s,NewLine,k)
end.