viết chương trình nhập số nguyên dương N, in ra màn hình số đảo ngược của số đó
2 câu trả lời
uses crt;
var i,n,d: integer;
a: array[1..100] of integer;
begin
clrscr;
write ('nhap n: '); readln (n);
while n<=0 do
begin
i:=i+1;
a[i]:=n mod 10;
n:=n div 10
d:=d+1;
end;
write ('so sau khi dao nguoc la: ');
for i:=d downto 1 do write (a[i]);
readln;
end.
uses crt;
var n:word;
BEGIN
clrscr;
write('Nhap so phan tu:'); readln(n);
write('So dao nguoc:');
while n>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
END.
