Дано целое трехзначное число a. Выяснить, является ли заданное число палиндромом - Pascal ABC
Формулировка задачи:
Дано целое трехзначное число a. Выяснить, является ли заданное число палиндромом. Если число является палиндромом, то вывести YES, иначе NO.
Палиндромом называется последовательность символов, которые читаются одинаково слева направо и справо на лево.
Например: 343
Входные данные:
Во входном потоке задано единственное целое трехзначное число a.
Выходные данные:
В выходной поток вывести 'YES' или 'NO'.
Пример входного файла (input.txt):
748
Пример выходного файла (output.txt):
NO
Решение задачи: «Дано целое трехзначное число a. Выяснить, является ли заданное число палиндромом»
textual
Листинг программы
var a: integer; begin readln(a); if a div 100 = a mod 10 then writeln('YES') else writeln('NO') end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Создается переменная
a
типаinteger
, которая будет содержать трехзначное число, введенное пользователем. - С помощью функции
readln()
считывается значение переменнойa
. - Проверяется условие
a div 100 = a mod 10
. Здесьdiv
означает деление, аmod
- остаток от деления. Если результат деления числаa
на 100 равен остатку от деления этого же числа на 10, то числоa
является палиндромом. - Если условие выполняется, то выводится строка
'YES'
, иначе выводится строка'NO'
. Таким образом, данный код проверяет, является ли трехзначное число, введенное пользователем, палиндромом.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д