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ố

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ố”

1. program ph;
   uses crt;
     var n, x, m, a, k, s: longint;
   begin
           clrscr;
           write(‘n = ‘); readln(n);
           k:=n;
           m:=0;
           while n<>0 do
           begin
                   x:= n mod 10;
                   m:=m+x;
                   s:=s+1;
                   a:=a*10+x;
                   n:= n div 10;
           end;
           writeln(‘So doi xung: ‘, a);
           writeln(‘Tong cac chu so cua ‘, n, ‘ la: ‘, m);
           writeln(k, ‘ co ‘, s, ‘ chu so’);
           readln
   end.

   Bình luận

2. uses crt;
   var n,a,x,m,s: integer;
   begin
       clrscr;
       write(‘Nhap n =’); readln(n);
          while n<>0 do
          begin
              x:=n mod 10;
              m:=m+x;
              s:=s+1;
              a:=a*10+x;
              n:=n div 10;
          end;
       writeln(‘So dao nguoc la:’,a);
       writeln(‘Tong cac chu so cua n la:’,m);
       writeln(‘Co ‘,s,’ chu so’);
       readln;
   end.

   Bình luận