Question

Помогите пожалуйста в паскале. Дано трехзначное число. Напишите программу определения, является ли оно палиндромом, т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево. Требуется вывести «YES», если число является палиндромом, и «NO» в противном случае. Примеры: входные данные ..............................выходные данные 101 ............................................................................YES 142 ............................................................................NO

Answer 1

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