dùng lệnh while… do… nhập số n in ra tổng các chữ số n

0 bình luận về “dùng lệnh while… do… nhập số n in ra tổng các chữ số n”

1. Program Tinh_tong;

   Uses crt;

   Var n , s , k: integer;

   Begin

   Write (‘ Nhap N:’);

   Readln (N);

   S := 0;

   While ( N <> 0 ) do

   Begin

   k := N mod 10;

   N := N div 10;

   S := S + k;

   End;

   Writeln( ‘Tong cac chu so cua ’,N,’ la :’, S);

   Readln;

   End.

   Bình luận

2. program tong_chuso;

   uses crt;

   var n:longint;

         t:byte;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          t:=0;

          while n>0 do

                 begin

                        t:=t+n mod 10;

                        n:=n mod 10;

                 end;

          write(‘Tong chu so la: ‘,t);

          readln;

   end.

   Bình luận