Предмет: Информатика,
автор: Настя123466656
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность
Ответы
Автор ответа:
1
// PascalABC.NET 3.6
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0)
.Sum
end.
Настя123466656:
совершенно не так делается ,я ввела это все в Паскаль АВС и выдавало что ошибка.
Похожие вопросы
Предмет: Алгебра,
автор: lipkaa
Предмет: Физика,
автор: Мелкая98
Предмет: Українська мова,
автор: vlad2001vladislav
Предмет: Математика,
автор: вика2143
Предмет: Математика,
автор: маремаушева