viết chương trình tính tổng các chữ số của số tự nhiên N, biết N nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng các chữ số của số tự nhiên N, biết N nhập từ bàn phím”

1. Var n,dem,tong:Longint;
   Begin clrscr;
   Write(‘Nhap so nguyen duong nhieu hon 1 chu so:’);
   Readln(n);
   tong:=0; dem:=0;
   While n>0 Do
   Begin
   Inc(dem);
   tong:=tong+n MOD 10;
   n:=n DIV 10;
   End;
   Writeln(‘Tong cac chu so:’,tong);
   Writeln(‘So cac chu so=’,dem);
   Readln;
   End.

   Bình luận

2. uses crt;
   var n,s:longint;
   BEGIN
         clrscr;
         write(‘Nhap n: ‘); read(n);
         while n<>0 do 
               begin
                     s:=s+(n mod 10);
                     n:=n div 10;
               end;
         writeln(‘Tong cac chu so: ‘,s);
         readln
   END.

   Bình luận