Question

С клавиатуры вводится целое число x. Необходимо найти наименьшую четную цифру числа.
Если такой цифры нет, вывести - NO.
Примечание: цифра "0" - четная.
В паскале ABC.

Answer 1

Ответ:

var x,k: integer;

begin

k:=10;

read(x);

repeat

if (abs(x) mod 10 mod 2 = 0) and (abs(x) mod 10 < k) then k:=abs(x) mod 10;

x:=x div 10

until x=0;

if k=10 then write('NO')

else write(k)

end.