Question

viết chương trình tính tổng các số tự nhiên nhỏ nhất lớn hơn 1000

Answer 1

-------------------
Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write('Tong S=',S);
Readln;
End.
---------------------

Answer 2

Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write('Tong S=',S);
Readln;
End.