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. – Gán tổng S với giá trị ban đầu là 0

   – Sử dụng để lấy từng chữ số của số tự nhiên N bằng cách:

   Lặp trong khi mà N còn > 0 thì

   + Gán k là chữ số cuối cùng của N.

   + Tiến hành cắt chữ số cuối cùng của N đi bằng việc lấy N chia cho 10.

   + Cộng dồn S: = S + k

   Lặp lại cho đến khi N = 0 thì dừng

   Trả lời

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

   Trả lời