Tin học Nhập n từ bàn phím, in ra số đảo ngược của n.

[Duyên 13012005]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập n từ bàn phím. In ra số đảo ngược của n
( ai giỏi tin giúp e với ạ )

 

[ĐứcNhật!]

Nhập n từ bàn phím. In ra số đảo ngược của n
( ai giỏi tin giúp e với ạ )

Program so_dao_nguoc;
uses crt;
var i,n,dn:integer;
begin
clrscr;
write('nhap so n :');readln(n);
dn:=0;
repeat
dn:=dn+n mod 10;
n:=n div 10;
until a=0;
writeln('so dao nguoc cua n la :',dn);
readln;
end.

 

[Duyên 13012005]

Program so_dao_nguoc;
uses crt;
var i,n,dn:integer;
begin
clrscr;
write('nhap so n :');readln(n);
dn:=0;
repeat
dn:=dn+n mod 10;
n:=n div 10;
until a=0;
writeln('so dao nguoc cua n la :',dn);
readln;
end.

Program so_dao_nguoc;
uses crt;
var i,n,dn:integer;
begin
clrscr;
write('nhap so n :');readln(n);
dn:=0;
repeat
dn:=dn+n mod 10;
n:=n div 10;
until a=0;
writeln('so dao nguoc cua n la :',dn);
readln;
end.

C. Ơn bạn nhiều nha

Program so_dao_nguoc;
uses crt;
var i,n,dn:integer;
begin
clrscr;
write('nhap so n :');readln(n);
dn:=0;
repeat
dn:=dn+n mod 10;
n:=n div 10;
until a=0;
writeln('so dao nguoc cua n la :',dn);
readln;
end.

Cảm ơn nhiều nha