$#FWC$

Câu 15:
`-` Thiếu cặp "Begin" và "end" 
`->` Chỉ có việc "write(a)" được lặp lại
`-` `a=1` và `a<10` và điều kiện luôn đúng
`->` Lặp vô hạn
`=>` `D`
Câu `16:`
`-` Ban đầu có: `a=1`
`-` Có "begin" và "end" nên
`+` Có câu lệnh write(a); `->` In ra màn hình giá trị `a`
`+` Cứ mỗi lần lặp thì `a` được cộng `1` `->` giá trị tăng dần từ `1` đến `9` 
`=>` `A`

Câu 15 :

- Vì write(a) và a := a + 1 không nằm trong begin .. end;

⇒ write(a) và a := a + 1 không là câu lệnh ghép

⇒ Chỉ write(a) được thực hiện lặp nếu điều kiện đúng

- Giá trị a sẽ không đổi qua mỗi vòng lặp

- Điều kiện a < 10 luôn đúng dẫn đến vòng lặp vô hạn

⇒ Đáp án : D. Lặp vô hạn

Câu 16 :

- Vì write(a) và a := a + 1 nằm trong begin .. end;

⇒ write(a) và a := a + 1 là câu lệnh ghép

⇒ write(a) và a := a + 1 được thực hiện lặp nếu điều kiện đúng

+ a < 10 ⇒   1 < 10 ⇒ Đúng ⇒ In 1 ⇒ a = 1 + 1 =   2

+ a < 10 ⇒   2 < 10 ⇒ Đúng ⇒ In 2 ⇒ a = 2 + 1 =   3

+ ...

+ a < 10 ⇒   9 < 10 ⇒ Đúng ⇒ In 9 ⇒ a = 9 + 1 = 10

+ a < 10 ⇒ 10 < 10 ⇒ Sai ⇒ Kết thúc lặp

⇒ Đáp án : A. In ra từ 1 đến 9