viết chương trình tính tổng 100 số tự nhiên đầu tiên

2 câu trả lời

vote 5* cho mình nha + câu trả lời hay nhất cho mình nha!

uses crt;

var i,tong:integer;

beign

clrscr;

tong:=0;

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

writeln(tong);

readln

end.