Câu 17 :

- Cú pháp : While <điều kiện> do <câu lệnh>;

- Hoạt động :

+ Kiểm tra điều kiện

+ Nếu điều kiện đúng thì thực hiện câu lệnh, qua lại kiểm tra điều kiện

+ Nếu điều kiện sai thì kết thúc lặp

Câu 18 :

- For i := 2 to 10 do S := S + 1;

- Số vòng lặp = 10 - 2 + 1 = 9 vòng lặp

- Qua mỗi vòng lặp tăng giá trị biến S lên 1 đơn vị

⇒ Qua 9 vòng lặp gía trị biến S tăng 9 đơn vị

⇒ Có 9 vòng lặp và khi kết thúc lặp S = 9

Câu 19 :

uses crt;

var i, S : integer;

begin

clrscr;

i := 2; S := 0;

while i <= 10 do

    begin

        S := S + 1;

        i := i + 1;

    end;

write('S = ', S);

readln

end.