Sự dụng câu lệnh lặp for...do,viết chương trình tính tổng các số tự nhiên từ 1 đến 100

2 câu trả lời

Uses crt;

Var i, S : integer;

Begin

S:=0;

For i:= 1 to 100 do

S:=S+ i;

Writeln(S);

End.