sử dụng vòng lặp while...do(pascal): a)hãy viết chương trình tính tổng các số tự nhiên chẵn đầu tiên sao cho tổng đó nhỏ hơn 1000 b)in lên màn hình tổng nhỏ nhất lớn hơn 1000 c)in lên màn hình tổng lớn nhất nhỏ hơn 1000 d)in lên màn hình số tự nhiên nhỏ nhất để tổng các số tự nhiên chẵn trước đó nhỏ hơn 1000 e)in lên màn hình số tự nhiên lớn nhất để tổng các số tự nhiên chẵn trước đó nhỏ hơn 1000 Các bạn giúp mình với,mình đọc đề mà không hiểu gì luôn ớ-.-

Câu a)

Program BTT;
Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        i:=0;
        While s<1000 do
        Begin
                i:=i+2;
                If s<1000 then
                        s:=s+i;
                If s>=1000 then
                Begin
                        s:=s-i;
                        Break;
                End;
        End;

        Write('S = ',s);
        Readln
End.

Câu e)

Program BTT;
Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        i:=0;
        While s<1000 do
        Begin
                i:=i+2;
                If s<1000 then
                        s:=s+i;
                If s>=1000 then
                Begin
                        s:=s-i;
                        Break;
                End;
        End;

        Write('So = ',i+1);
        Readln
End.

Câu a)

Program BTT;
Uses crt;
Var i,s: longint;
Begin
     Clrscr;
     s:=0;
     i:=0;
     While s<1000 do
    Begin

     i:=i+2;
      If s<1000 then
 s:=s+i

 If s>=1000 ten
Begin
s:=s-i;
 Break;

 End;

mik biết có vậy thui