Viết chương trình tính tong cho số nguyên dương n

0 bình luận về “Viết chương trình tính tong cho số nguyên dương n”

1. nếu là tổng chữ số:

   program tongchuso;

   uses crt;

   var n:integer;

         s:byte;

   begin

   clrscr;

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

   s:=0;

   while n>0 do

    begin

     s:=s+n mod 10;

     n:=n div 10;

    end;

   write(‘tong cac chu so la: ‘,s);

   readln

   end.

   *Nếu là tổng từ 1 đến n

   program tinhtong;

   uses crt;

   var n,i:integer;

         s:longint;

   begin

   clrscr;

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

   s:=0;

   for i:=1 to n do

    s:=s+i;

   write(‘Tong cac so tu 1 -> ‘,n,’ la: ‘,s);

   readln

   end.

   Bình luận