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

0 bình luận về “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”

  1. 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.

    Bình luận

Viết một bình luận