Вывести ответ «Да», если все цифры четные, и ответ «Нет» в остальных случаях. - Pascal ABC

Формулировка задачи:

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


textual

Код к задаче: «Вывести ответ «Да», если все цифры четные, и ответ «Нет» в остальных случаях. - Pascal ABC»

var n:integer;
begin
repeat
write('Введите трехзначное число n=');
readln(n);
n:=abs(n);
until (n>99)and(n<=999);
if(n div 100 mod 2=0)and(n div 10 mod 10 mod 2=0)and(n mod 10 mod 2=0)
then writeln('Да') else write('Нет')
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.778 из 5

Источник