VCT tính tổng các số tự nhiên từ 1->100

0 bình luận về “VCT tính tổng các số tự nhiên từ 1->100”

1. uses crt;

   var i,s: integer;

   begin

   clrscr;

   for i:=1 to 100 do s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. program tinhtong;

   var t,i:integer;

   begin

   clrscr;

   t:=0;

   for i:=1 to 100 do

   t:=t+i;

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

   readln

   end.

   Bình luận