Предмет: Информатика,
автор: Аноним
Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное двузначное число. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом `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.
как раз сам недавно решал))))
Автор ответа:
1
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p.InRange(10, 99) and p.IsEven)
.DefaultIfEmpty
.Min
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: Костя2505
Предмет: Русский язык,
автор: Nikitos25RUS
Предмет: Английский язык,
автор: lokolll
Предмет: Математика,
автор: Sasha48911
Предмет: Геометрия,
автор: Dimon7032