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

Thực hiện 3 vòng lặp.

`S=10`

`i=1→i<5→` $\begin{cases}S=1+1=2\\i=1+2=3\end{cases}$

`i=3→i<5→` $\begin{cases}S=2+3=5\\i=3+2=5\end{cases}$

`i=5→i=5→` $\begin{cases}S=5+5=10\\i=5+2=7\end{cases}$

`i=7→i>5→` Kết thúc vòng lặp.

___________________________________________

VCT:

program phuongt;
uses crt;
  var i, s: integer;
begin
       clrscr;
       s:=1; i:=1;
       while i<=5 do
       begin
               s:=s+i;
               i:=i+2;
       end;
       write('Gia tri s = ', s);
       readln
end.