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.
Добрый день. Меня заинтересовал ваш ответ "uses crt;
var x, xx, c, x1: integer;begin clrscr;
write('x='); readln(x);
xx:=x;
while x< >..." на вопрос http://www.liveexpert.org/topic/view/2483473-pomogite-sostavit-blok-shemu. Можно с вами обсудить этот ответ?