Вопрос от посетителя:
1. Дано трехзначное число. Выяснить, является ли оно палиндромом («перевертышем»), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево
Илюха отвечает:
program xxx;
var n, c, d, e, k : integer;
begin
wtite (‘введите 3-х значное число N =’);
readln (n);
c := n div 100;
d := (n div 10) mod 10;
e := n mod 10;
k:= 100*e + 10*d + c;
if n = k then write (‘палиндром’) else write(‘не палиндром’)
end.