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ố đó 24/07/2021 Bởi Adalyn 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ố đó
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. Bình luận
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. Bình luận
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.