Question

Дана последовательность чисел, завершающихся 0.
Найти сумму кратных чисел, кратных 4.
(Паскаль)

Answer 1

begin

ReadSeqIntegerWhile(t->t<>0).Where(t->t mod 4 =0).Sum.Println

end.