Question

С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не
трёхзначное число, должно быть выведено сообщение «Неверное число».
Нужно написать

Answer 1

program prog;
uses crt;

var x,k:integer;

begin;
clrscr;

write('Введите трехзначное число х = ');
readln(x);

if ((x div 1000) = 0) and   (abs(x div 100)>0 )then
begin
     while abs(x)>0 do begin;
     if (x mod 10) mod 2=0 then k:=k+1;
     x:= x div 10;
     end;
if k=3 then writeln('Да')
else    writeln('Нет');
end
else
writeln('Неверное число');
end.