Question

Viết chương trình pascal cho nhập vào số nguyên dương n(n<32000).In ra số đảo ngược.

Answer 1

Program HOC24;

var n: integer;

i: byte;

begin

write('Nhap N: '); readln(n);

write('So dao nguoc la: ');

while n<>0 do

begin

write(n mod 10);

n:=n div 10;

end;

readln

end.