Viết chương trình nhập vào số n in ra màn hình số đảo ngược của n?

Viết chương trình nhập vào số n in ra màn hình số đảo ngược của n?

Đề bài: Viết chương trình nhập vào số n in ra màn hình số đảo ngược của n?

Lời giải:

program bai1;

var n,t:longint;

s:real;

begin

write(‘N=’);readln(n);

t:=n;

while n<>0 do

begin

S:=S*10+n mod 10;

n:=n div 10;

end;

if S=t then writeln(‘so doi xưng’)

else writeln(‘khong doi xung’);

readln;

end.