Nhập một số nguyên dương n .Xuất ra màn hình
a)Số đảo ngược của n
b)Tổng các chữ số của n
c)N là số có mấy chư số
Giúp mnh voi
Nhập một số nguyên dương n .Xuất ra màn hình
a)Số đảo ngược của n
b)Tổng các chữ số của n
c)N là số có mấy chư số
Giúp mnh voi
program bai_so;
uses crt;
var n,dn,d,t:longint;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
dn:=0; d:=0; t:=0;
while n>0 do
begin
dn:=dn*10+n mod 10;
d:=d+1;
t:=t+n mod 10;
n:=n div 10;
end;
writeln(‘a. So dao la: ‘,dn);
writeln(‘b. Tong cac chu so la: ‘,t);
writeln(‘So luong chu so la: ‘,d);
readln;
end.