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

Question

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

Answer 1

Var chislo, x, i, s: integer;
begin
writeln('Введите число:');
readln(chislo);
x := chislo;
s := 0;
if ( chislo < 100 ) or ( chislo > 999 ) then writeln('Неверное число!')
else begin
while ( x <> 0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
if s mod 2 = 0 then write('Да')
else write('Нет');
end;
end.