Дано целое трехзначное число 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.

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

В данном коде происходит следующее:

  1. Создается переменная a типа integer, которая будет содержать трехзначное число, введенное пользователем.
  2. С помощью функции readln() считывается значение переменной a.
  3. Проверяется условие a div 100 = a mod 10. Здесь div означает деление, а mod - остаток от деления. Если результат деления числа a на 100 равен остатку от деления этого же числа на 10, то число a является палиндромом.
  4. Если условие выполняется, то выводится строка 'YES', иначе выводится строка 'NO'. Таким образом, данный код проверяет, является ли трехзначное число, введенное пользователем, палиндромом.

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

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