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

Teacher991 Teacher991    1   15.02.2020 09:27    0

Ответы
namik2404 namik2404  11.09.2020 18:27

PascalABC.NET

begin

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

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика