Câu 1 : 

- Viết chương trình :

uses crt;

var S, i : integer;

begin

clrscr;

i := 1; S := 0;

while S <= 1000 do

begin S := S + i;

i := i + 1; end;

write('N = ', i - 1);

readln

end.

Câu 2 :

- Giá trị ban đầu S = 0

+ S =   0 <= 10 ⇒ S = S + 1 =   0 + 1 =   1

+ S =   1 <= 10 ⇒ S = S + 1 =   1 + 1 =   2

+ ....

+ S = 10 <= 10 ⇒ S = S + 1 = 10 + 1 = 11

+ S = 11 <= 10 ⇒ Sai ⇒ Kết thúc lặp

⇒ Giá trị S = 11

Câu 1 
Uses Crt;

Var s,i : integer;

Begin

 Clrscr;
 i:=1;

 While S<=1000 then 

  Begin

   s:=s+i;

   i:=i+1;

  End;

 Writeln('Tong la : ',s);
 Readln

End.
Câu 2 :
Vì lúc đầu S=0 và  điều kiện là S<=10 nên S sẽ tăng từ 1->11 (S=S+1)
=>Gía trị của S = 11