Question

Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево. Входные данные Натуральное число N (1000 ≤ N ≤ 9999). Выходные данные Следует вывести слово «YES», если число N является палиндромом, или «NO» – если нет.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadInteger('n=').ToString;

 if (s[1] = s[4]) and (s[2] = s[3]) then Println('YES')

 else Println('NO')

end.