viết chương trình tính tổng các chữ số của số tự nhiên n

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”

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. viết chương trình tính tổng các chữ số của số tự nhiên n:                                           viết: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