`1)`

`S=10;x=0,5`

`S<=5,2?->10<=5,2->sai`

`->S=S-x=10-0,5=9,5`

`->S=9,5(1)`

`S<=5,2?->9,5<=5,2->sai`

`->S=S-x=9,5-0,5=9 `

`->S=9 (2)`

`S<=5,2?->9<=5,2->sai`

`->S=S-x=9-0,5=8,5`

`->S=8,5(3)`

`S<=5,2?->8,5<=5,2->sai`

`->S=S-x=8,5-0,5=8`

`->S=8(4)`

`S<=5,2?->8<=5,2->sai`

`->S=S-x=8-0,5=7,5`

`->S=7,5(5)`

`S<=5,2?->7,5<=5,2->sai`

`->S=S-x=7,5-0,5=7`

`->S=7(6)`

`S<=5,2?->7<=5,2->sai`

`->S=S-x=7-0,5=6,5`

`->S=6,5(7)`

`S<=5,2?->6,5<=5,2->sai`

`->S=S-x=6,5-0,5=6`

`->S=6(8)`

`S<=5,2?->5,5<=5,2->sai`

`->S=S-x=5,5-0,5=5`

`->S=5(9)`

`S<=5,2?->5<=5,2->đúng`

→Thoát vòng lặp 

`S=5,2 \text{ , Vòng lặp thực hiện lặp 9 lần}` 

- Máy tính thực hiện 10 vòng lặp

- Khi kết thúc S = 5

- Giá trị ban đầu S = 10, x = 0.5

+ S =  10 ≤ 5.2 ⇒ S = S - x = 10 - 0.5 = 9.5 (Lần 1)

+ S = 9.5 ≤ 5.2 ⇒ S = S - x = 9.5 - 0.5 = 9.0 (Lần 2)

+ S = 9.0 ≤ 5.2 ⇒ S = S - x = 9.0 - 0.5 = 8.5 (Lần 3)

+ S = 8.5 ≤ 5.2 ⇒ S = S - x = 8.5 - 0.5 = 8.0 (Lần 4)

+ S = 8.0 ≤ 5.2 ⇒ S = S - x = 8.0 - 0.5 = 7.5 (Lần 5)

+ S = 7.5 ≤ 5.2 ⇒ S = S - x = 7.5 - 0.5 = 7.0 (Lần 6)

+ S = 7.0 ≤ 5.2 ⇒ S = S - x = 7.0 - 0.5 = 6.5 (Lần 7)

+ S = 6.5 ≤ 5.2 ⇒ S = S - x = 6.5 - 0.5 = 6.0 (Lần 8)

+ S = 6.0 ≤ 5.2 ⇒ S = S - x = 6.0 - 0.5 = 5.5 (Lần 9)

+ S = 5.5 ≤ 5.2 ⇒ S = S - x = 5.5 - 0.5 = 5.0 (Lần 10)

+ S = 5.0 ≤ 5.2 ⇒ Sai ⇒ Kết thúc

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

uses crt;

var S, x : real;

begin

clrscr;

S := 10; x := 0.5;

while S > 5.2 do

S := S - x;

write('S = ', S : 2 : 1);

readln

end.