program bt;

uses crt;

var A,n: integer;

begin

A:=5;

n:=3;

while A>=15 do

begin

A:=A+n;

end;

write(A);

readln;

end.

🔻 Chương trình thực hiện 4 vòng lặp

🔻 Giá trị A là 17

🔻 Mô phỏng :

- Giá trị ban đầu A = 5, n = 3

+ A = 5 < 15 ⇒ A = A + n = 5 + 3 = 8 ⇒ Lần 1

+ A = 8 < 15 ⇒ A = A + n = 8 + 3 = 11 ⇒ Lần 2

+ A = 11 < 15 ⇒ A = A + n = 11 + 3 = 14 ⇒ Lần 3

+ A = 14 < 15 ⇒ A = A + n = 14 + 3 = 17 ⇒ Lần 4

+ A = 17 < 15 ⇒ Sai ⇒ Thông báo A, kết thúc

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

uses crt;

var A, n : integer;

begin

clrscr;

A := 5; n := 3;

while A < 15 do A := A + n;

write('A = ', A);

readln

end.