Учеба и наука

• Всего ответов: 1


Никита
55-й в Учебе и науке
0 отзывов
uses crt;
var x, xx, c, x1: integer;
begin clrscr;
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, ' — не палиндром');
end. 
июнь 12, 2017 г.

Похожие вопросы