Viết chương trình sử dụng while..do tính tổng 100 số tự nhiên đầu tiên. -Giúp mk với ạ cần gấp

0 bình luận về “Viết chương trình sử dụng while..do tính tổng 100 số tự nhiên đầu tiên. -Giúp mk với ạ cần gấp”

1. uses crt;

   var tong:integer;

       i:byte;

   BEGIN

           clrscr;

           i:=1; tong:=0;

           while i<=100 do

           begin

                   tong:=tong+i;

                   inc(i);

           end;

           write(‘Tong 100 so tu nhien dau tien la:’,tong);

           readln

   END.

   Xin ctlhn!

   Bình luận

2. program tinhtong;

   uses crt;

   var s,i:integer;

   begin

   clrscr;

   s:=0; i:=1;

   while i<=100 do

    begin

     s:=s+i;

     i:=i+1;

    end;

   write(‘Tong 10 so tu nhien dau tien la: ‘,s);

   readln

   end.

   Bình luận