a) - máy tính sẽ thực hiện 6 vòng lặp (vì điều kiện S≤1,5 khi S ← 5 là sai, chuyển tới bước 3, thì S = 5-0,5 = 4,5 (lặp lần 1); lặp lần 2 thì S = 4,5-0,5 = 4; lặp lần 3 thì S = 4-0,5 = 3,5; lặp lần 4 thì S = 3,5-0,5 = 3; lặp lần 5 thì S = 3-0,5 = 2,5; lặp lần 4 thì S = 2,5-0,5 = 2; lặp lần 6 thì S = 2-0,5 = 1,5 (điều kiện đúng, kêt thúc lặp) thông báo S và kết thúc thuật toán)

- sau khi thực hiện thuật toán thì S = 1,5

- chương trình:

uses crt;

var S,x:integer;

begin

clrscr;

S:=5; x:=0,5;

while S>1.5 do

S:=S-x;

write(S);

readln;

end.

b) - máy tính sẽ thực hiện 4 vòng lặp (vì điều kiện S≥10 khi S←10 là đúng, chuyển tới B4, thông báo S và kết thúc thuật toán.)

- sau khi thực hiện thuật toán thì S = 10

- chương trình:

uses crt;

var S,n: integer;

begin

clrscr;

S:=10; n:=0;

while S<10 do

begin

n:=n+2; S:=S-n;

end;

write(S);

readln;

end.