sickman1991
02.04.2021 13:18

Напишите программы на pascalabc.net
№2:
напишите программу, которая в последовательности натуральных чисел определяет минимальное значение четных чисел, которые больше 100. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 200. введённые числа не превышают 300. программа должна вывести одно число: минимальное из четных чисел, которые больше 100.
например: 23 108 121 148 34 0 ==> 108

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Чекушка220
11.09.2020 14:43

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Where(p -> p.IsEven and (p > 100))

   .Min

   .Println

end.

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