Tính ttoongr 100 số tự nhiên đầu tiên for… do

0 bình luận về “Tính ttoongr 100 số tự nhiên đầu tiên for… do”

1. var i:byte;

         t:integer;

   begin

   for i:=0 to 100 do 

   t:=t+i;

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

   readln

   end.

   Bình luận

2. Program tinh_tong

   uses crt

   const : N:=100;

   Var i,tong:integer;

   begin

   clrscr

   tong:=0;i:=1

   while N⇒i

   begin

   tong: = tong + i;

   i:=i+1;

   end

   Writeln(‘tong cua 100 so tu nhien dau tien la’,tong);

   Readln;

   End.

                  (Đây là bài của mình trên hoi247 đó)

   Bình luận