a)

Thực hiện 20 lần lặp
Giá trị của a:=10

b)

Bạn tham khảo code:

uses crt;
var a, b: integer;
begin
clrscr;
a:=20;
b:=0.5;
while a>10 do a:=a-b;
write('Gia tri cua a la: ', a);
readln;
end.

a)

- Giá trị ban đầu biến a = 20, b = 0.5

+ a = 20 <= 10 ⇒ Điều kiện sai ⇒ a = a - b = 20 - 0.5 = 19.5

+ a = 19.5 <= 10 ⇒ Điều kiện sai ⇒ a = a - b = 19.5 - 0.5 = 19

+ a = 19 <= 10 ⇒ Điều kiện sai ⇒ a = a - b = 19 - 0.5 = 18.5

+ .....

+ a = 10.5 <= 10 ⇒ Điều kiện sai ⇒ a = a - b = 10.5 - 0.5 = 10

+ a = 10 <= 10 ⇒ Điều kiện đúng ⇒ Kết thúc vòng lặp

⇒ Thuật toán trên có 20 vòng lặp 

⇒ Giá trị biến a sau khi kết thúc thuật toán là 10

b)

uses crt;

var a, b : real;

begin

clrscr;

a := 20; b := 0.5;

while a > 10 do a := a - b;

writeln('a = ', a : 2 : 1);

readln

end.