Дано целое трехзначное число a. Выяснить, является ли заданное число палиндромом - Pascal ABC

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

Дано целое трехзначное число a. Выяснить, является ли заданное число палиндромом. Если число является палиндромом, то вывести YES, иначе NO. Палиндромом называется последовательность символов, которые читаются одинаково слева направо и справо на лево. Например: 343 Входные данные: Во входном потоке задано единственное целое трехзначное число a. Выходные данные: В выходной поток вывести 'YES' или 'NO'. Пример входного файла (input.txt): 748 Пример выходного файла (output.txt): NO

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

textual
var a: integer;
begin
  readln(a);
  if a div 100 = a mod 10
    then writeln('YES')
    else writeln('NO')
end.

14   голосов, оценка 3.929 из 5


СОХРАНИТЬ ССЫЛКУ