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

uses crt;

var S, i : integer;

begin

clrscr;

S := 0; i := 1;

while i <= 10 do

begin S := S + i;

i := i + 2; end;

write('S = ', S);

readln

end.

⇒ Sau khi thực hiện đoạn chương trình giá trị S = 25 và i = 11 

* * * Giải thích :

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

+ i = 1 <= 10 ⇒ S = S + i = 0 + 1 = 1 ⇒ i = i + 2 = 1 + 2 = 3

+ i = 3 <= 10 ⇒ S = S + i = 1 + 3 = 4 ⇒ i = i + 2 = 3 + 2 = 5

+ i = 5 <= 10 ⇒ S = S + i = 4 + 5 = 9 ⇒ i = i + 2 = 5 + 2 = 7

+ i = 7 <= 10 ⇒ S = S + i = 9 + 7 = 16 ⇒ i = i + 2 = 7 + 2 = 9

+ i = 9 <= 10 ⇒ S = S + i = 16 + 9 = 25 ⇒ i = i + 2 = 9 + 2 = 11 

+ i = 11 <= 10 ⇒ Sai ⇒ Kết thúc

i ← 1; S ← 0

S ← S + i = 0 + 1 = 1; i ← i + 1 = 1 + 2 = 3 ≤ 10

S ← S + i = 1 + 3 = 4; i ← i + 1 = 3 + 2 = 5 ≤ 10

S ← S + i = 4 + 5 = 9; i ← i + 1 = 5 + 2 = 7 ≤ 10

S ← S + i = 9 + 7 = 16; i ← i + 1 = 7 + 2 = 9 ≤ 10

S ← S + i = 16 + 9 = 25; i ← i + 1 = 9 + 2 = 11 > 10 ⇒ Thoát vòng lặp

Sau khi thực hiện đoạn ct, S = 25 và i = 11