Question

Паскаль
Задача
Организовать ввод n натуральных чисел с клавиатуры и определить сумму кратных трем
​

Answer 1

Ответ:

PascalABC.NET

begin

 var A := ReadSeqInteger('Вводите последовательность: ', ReadInteger('укажите длину последовательности: '));

 A.Where(x -> x mod 3 = 0).Sum.Println

end.