Viết chương trình tính tổng các số tự nhiên từ 1 đến n bằng vòng lặp for do và while do

0 bình luận về “Viết chương trình tính tổng các số tự nhiên từ 1 đến n bằng vòng lặp for do và while do”

1. *for do

   program tinhtong;

   uses crt;

   var n,i,s:integer;

   begin

   clrscr;

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

   s:=0;

   for i:=1 to n do

      s:=s+i;

   readln(‘Tong la: ‘,s);

   readln

   end.

   *while do

   program tinhtong;

   uses crt;

   var n,i,s:integer;

   begin

   clrscr;

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

   s:=0;  i:=1;

   while i<=n do

     begin

       s:=s+i;

       i:=i+1;

     end;

   readln(‘Tong la: ‘,s);

   readln

   end.

   Bình luận