Số vòng lặp:
-Vòng (1): 1<5 nên: S=1+1=2;
i=1+2=3;
-Vòng (2): 3<5 nên: S=2+3=5;
i=3+2=5;
-Vòng (3): 5=5 nên: S=5+5=10;
i=5+2=7;
7>5 nên chương trình kết thúc.
⇒ Chương trình thực hiện 3 vòng lặp;
S=10.
Viết chương trình:
program BT;
uses crt;
var i,S: byte;
Begin
clrscr;
S:=1; i:=1;
while i<=5 do
begin
S:=S+i;
i:=i+2;
end;
write('S = ',S,' , i = ',i);
readln
End