Предмет: Информатика, автор: Аноним

Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное двузначное число. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом `0` (`0` - признак окончания ввода, не входит в последовательность). Количество чисел не превышает `1000`. Введённые числа не превышают `30  000`. Программа должна вывести одно число: минимальное  четное двузначное или NO, если таких чисел нет.

Ответы

Автор ответа: Аноним
1

var a, min: integer;

begin

min:=30001;

 readln(a);

while a<>0 do begin

   if (a mod 2 = 0) and (a > 9) and (a <100)and (a< min) then

min := a;

   readln(a);

end;

if min=30001 then writeln('no') else writeln(min);

end.

как раз сам недавно решал))))

Автор ответа: BobbyFresnel
1

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Where(p -> p.InRange(10, 99) and p.IsEven)

 .DefaultIfEmpty

 .Min

 .Print

end.

Приложения:
Похожие вопросы