Палиндромом называется число, равное обращенному. Например, 121 и 5995 - палиндромы.
Алгоритм поиска палиндромов.
{x - исходное число;
xx - дубликат исходного числа;
x1 - обратное число;
c - цифра исходного числа}
write('x='); readln(x);
xx:=x;
{создали дубликат исходного числа}
while x< >0 do {применим алгоритм разделения числа на цифры для сборки обратного числа}
begin
c:=x mod 10;
x:=x div 10;
x1:=x1*10+c; {учитываем порядок цифр числа}
end;
{если обратное число равно дубликату исходного числа:}
If x1=xx then writeln(xx, ' - палиндром')
else writeln(xx, ' - не палиндром')
Начало
Наверх