Question

Составить программу, проверяющую, есть ли в числе четные цифры.
Var: n - число,... Язык: Pascal

Answer 1

var a: integer;

begin

 Read(a);

 while (a > 0) and (a mod 2 <> 0) do a := a div 10;

 Write(a > 0)

end.