С клавиатуры вводится целое число x. Необходимо найти наименьшую четную цифру числа.
Если такой цифры нет, вывести - NO.
Примечание: цифра "0" - четная.
В паскале ABC.
Если такой цифры нет, вывести - NO.
Примечание: цифра "0" - четная.
В паскале ABC.
More Questions From This User See All
Answers & Comments
Ответ:
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.