Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.