Question

Ввести с клавиатуры пятизначное число и определить, является ли оно палиндромом. Одинаково читается в обоих направлениях (например, 12321 – палиндром, 12345 – не палиндром).

Answer 1

var n:integer;
begin
writeln("Введите пятизначное число :");
ReadLn(n);
if ((n div 10000)=(n mod 10)) and  
    (((n div 1000) mod 10)=((n mod 100) div 10))
           then    
writeln('---Введенное Число ПАЛЕНДРОМ---')
     else  
 writeln('---Введенное Число не является Палендромом---');
Readln;
end.