A. For i := 100 to 1 do writeln(‘A’);

- Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối

- Giá trị đầu (100) > Giá trị cuối (1)

⇒ For i := 1 to 100 do writeln(‘A’);

B. Var i : real; for i := 1 to 10 writeln(‘xin chao’);

- Real là kiểu số thực

- Biến đếm không thể mang kiểu số thực

⇒ Var i : integer; for i := 1 to 10 writeln(‘xin chao’);

C. X : = 10; while X : = 10 do X : = X + 5

- Thiếu dấu chấm phẩy cuối câu lệnh

- Các dấu gán viết sai, hai chấm và dấu bằng phải sát nhau

- Sai điều kiện X : = 10, X : = 10 không có giá trị đúng hoặc sai

⇒ X := 10; while X = 10 do X := X + 5;

D. s = 0; n = 0; while s <= n do n := n + 1; s := s + 1;

- Điều s <= n ban đầu có giá trị đúng (0 <= 0)

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

- Sai dấu gán giá trị cho s và n

- Điều kiện s <= n dần về đúng

- Xảy ra vòng lặp vô hạn

⇒ s := 0; n := 0; while s <= n do begin n := n + 1; s := s + 1; end;

Câu a) Gía trị đầu lớn hơn giá trị cuối nên sai ( Câu lệnh for..to..do biến đếm vốn dĩ giá trị đầu phải bé hơn giá trị cuối, chỉ có for..downto..do biến đếm mới có giá trị đầu lớn hơn giá trị cuối)

Câu b) Sai kiểu dữ liệu ( biến đếm vòng lặp for vì từ 1 đến 10 nên là số nguyên)

Câu c) Sai cú pháp  ( Vì khúc "While x:=10" sai vì cú pháp là While <điều kiện>)

Câu d) Sai phép gán (Vì khúc "s=0;n=0" sai vì cú pháp phép gán là ":=")