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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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.

Объяснение кода листинга программы

  1. Создается переменная n типа integer.
  2. В цикле repeat-until выполняется следующее действие:
    • Выводится сообщение «Введите трехзначное число n=».
    • Считывается значение переменной n с помощью функции readln.
    • Значение переменной n преобразуется в абсолютное значение с помощью функции abs.
  3. Проверяется условие (n>99)and(n<=999). Это условие гарантирует, что введенное число находится в диапазоне от 100 до 999.
  4. Далее проверяется условие (n div 100 mod 2=0)and(n div 10 mod 10 mod 2=0)and(n mod 10 mod 2=0). Это условие проверяет, что все цифры числа n четные.
  5. Если все условия выполняются, то выводится сообщение «Да», иначе выводится сообщение «Нет».

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы