---------------Vòng lặp không xác định---------------
program tt;
uses crt;
var i: integer;
S: longint;
begin
clrscr;
S:=0;
i:=1;
while(i<1000) do
begin
S:=S+i;
i:=i+2;
end;
writeln('Tong cua cac so le tu 1 den 1000 la: ',S);
readln;
end.
---------------Vòng lặp xác định---------------
program tt;
uses crt;
var i: integer;
S: longint;
begin
clrscr;
S:=0;
for i:=1 to 1000 do
begin
if(i mod 2 <> 0) then S:=S+i;
end;
writeln('Tong cua cac so le tu 1 den 1000 la: ',S);
readln;
end.
