Помогите пожалуйста в паскале. Дано трехзначное число. Напишите программу определения,...

0 голосов
40 просмотров

Помогите пожалуйста в паскале.

Дано трехзначное число. Напишите программу определения, является ли оно палиндромом, т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Требуется вывести «YES», если число является палиндромом, и «NO» в противном случае.

Примеры:
входные данные ..............................выходные данные
101
............................................................................YES
142
............................................................................NO


Информатика (274 баллов) | 40 просмотров
Дан 1 ответ
0 голосов

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

(484 баллов)
0

Спасибо большое)