Question

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

Answer 1

program min_ne_okon_na_2;

var

m,x:integer;

begin

m:=30000;

read(x);

repeat

if (x<m)and(x mod 2=0)and(x mod 10<>2) then

m:=x;

read(x);

until x=0;

write(m);

end.