Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N

0 bình luận về “Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N”

1. uses crt;

   var n,s: integer;

   begin

   clrscr;

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

   while n>0 do

   begin

   s:=s+(n mod 10);

   n:=n div 10;

   end;

   writeln (‘tong cac chu so cua N la: ‘,s);

   readln;

   end.

   Bình luận