Предмет: Информатика, автор: Настя123466656

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

Ответы

Автор ответа: BobbyFresnel
1

// PascalABC.NET 3.6

begin

 ReadSeqIntegerWhile(p -> p <> 0)

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

     .Sum

     .Print

end.


Настя123466656: совершенно не так делается ,я ввела это все в Паскаль АВС и выдавало что ошибка.
Настя123466656: Так что лучше переделайте.
Настя123466656: можете сделать тогда на Паскаль АБС??
Похожие вопросы
Предмет: Математика, автор: маремаушева