* Gán thêm biến n phụ để khi xuất ra màn hình giá trị của n không đổi.
* Dùng cách thường:
uses crt;
var n,n1,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
n1:=n;
while n1<>0 do
begin
s:=s*10+(n1 mod 10);
n1:=n1 div 10;
end;
if n=s then writeln(n,' la so doi xung')
else writeln(n,' khong phai la so doi xung');
readln
end.
* Dùng xâu:
uses crt;
var s:string; n,i,t:longint; dx:boolean;
begin
clrscr;
write('Nhap n: '); readln(n);
dx:=true;
str(n,s);
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then dx:=false;
if dx then writeln(n,' la so doi xung')
else writeln(n,' khong phai la so doi xung');
readln
end.
