1.Напишите программу, которая в последовательности натуральных чисел определяет количество четных чисел. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
2.Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность
// PascalABC.NET 3.6
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0)
.Sum
.Print
end.