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 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!

   Trả lời

2. Program Hotboy ; 

   uses crt;

   var a,s: Integer;

   Begin

   clrscr;

     write(‘Nhap so tu ban phim’); readln(a);

   While a>0 do 

       begin

    s:=S+a mod 10;

    a:=a div 10 ;

    end; 

   writeln(‘Tong cac chu so la: ‘,S);

   readln

   End.

   Trả lời