Question

Напишите программу вычесления суммы чисел, кратных трём из 10 чисел введённых с клавиатуры.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(ReadSeqInteger(10).Where(x->x mod 3=0).Sum);
end.