Question

Задача Pascal, цикл While Ввести целое число и определить, верно ли, что все его цифры чётные Пример: Введите число: 2684:да

Answer 1

Var A:longint;
    k:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
k:=0;
While A<>0 do
   Begin
   if (A mod 10) mod 2 <> 0 then k:=1;
   A:=A div 10
   End;
if k=0 then WriteLn('Да')
else WriteLn('Нет')
End.