saya8282
04.06.2022 02:11

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
panda312
12.10.2020 22:08

// 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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота