Em hãy viết chương trình tính tổng các số lẻ từ 1-1000 sử dụng vòng lặp xác định vào không xác định 

Program Hotboy ;

Uses crt;

Var s,i : integer;

Begin

Clrscr;

i:=1 ;

While i<1000 do

Begin

If (i mod 2=1) then S:=S+i;

End;

Write('tong le la',S)

Readln

End.

---------------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.