Sử dụng câu lệnh lặp for... do tính tổng 100 số tự nhiên đầu tiên

2 câu trả lời

uses crt;

var i,S:integer;

begin

clrscr;

S:=0;

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

write(S);

readln

end.