Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность​

button4ik button4ik    1   08.04.2020 00:37    1

Ответы
goe1 goe1  12.10.2020 22:07

// PascalABC.NET 3.6

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p mod 3 = 0)

     .Sum

     .Print

end.

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