Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность
Ответы
Ответ дал:
0
// PascalABC.NET 3.6
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0)
.Sum
end.
Ответ дал:
0
Нет. Во-первых, время на исправления ответа ушло - дается 2 часа только. Во-вторых, мне негда взять Pascal ABC, даже если бы я захотел: он с 2008 года не поддерживается.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад