- Giá trị ban đầu S = 0, i = 1
+ S = 0 < 5 ⇒ S = S + i = 0 + 1 = 1 ⇒ i = i + 1 = 1 + 1 = 2
+ S = 1 < 5 ⇒ S = S + i = 1 + 2 = 3 ⇒ i = i + 1 = 2 + 1 = 3
+ S = 3 < 5 ⇒ S = S + i = 3 + 3 = 6 ⇒ i = i + 1 = 3 + 1 = 4
+ S = 6 >= 5 ⇒ Kết thúc
⇒ Lặp 3 vòng, giá trị S = 6
- Viết chương trình :
uses crt;
var i, S : byte;
begin
clrscr;
S := 0; i := 1;
while S < 5 do
begin S := S + i; i := i + 1;
end; write('S = ', S);
readln
end.