Ввести с клавиатуры пятизначное число и определить, является ли оно палиндромом. Одинаково читается в обоих направлениях (например, 12321 – палиндром, 12345 – не палиндром).
Answers & Comments
стасик13var 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.
Answers & Comments
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.