Question

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

Answer 1

program chisla;
uses crt;
var a,b,c,d:integer;
begin
write('Введите трехзначное число');
Readln(a);
if ((a div 100)>0) and ((a div 100)<=9) then
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-b-(c*10);
if ((b/2)=(b div 2)) and ((c/2)=(c div 2)) and ((d/2)=(d div 2)) then Writeln('Да') else writeln('Нет');
end
else
writeln('Неверное число');
end.