Nhập n bất kỳ sau đó in ra tổng các chữ số của n

0 bình luận về “Nhập n bất kỳ sau đó in ra tổng các chữ số của n”

1. Program tong;
   Uses crt;
   Var n , s , k: integer;
   Begin
       Read(N );
       S := 0;
       While ( N <> 0 ) do
       Begin     
               k := N mod 10;
               N :=  N div 10;

               S := S + k;
       End;
       Writeln(S);
       Readln;
   End.

   Ps: Mình quen viết C++ nếu sang Pascal có gì sai thì bạn có thể hỏi lại dưới phần comment nha.

   Bình luận

2. program window;

   uses crt;

   var n,m:longint;tong:byte;

    BEGIN

   clrscr;

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

     tong:=0;m:=n;

     while m>0 do

       begin

         tong:=tong+m mod 10;

         m:=m div 10;

   end;

   writeln(‘Tong cac chu so cua ‘,n,’ la: ‘,tong);

   readln

   END

   Chúc bạn học tốt

   Bình luận