31

a) sai Sửa lại: for i:=1 to n do write('A');

b) Đúng

c) Đúng 

d) sai Sửa lại: if x>5 then a:=b else m := n;

32

Program Chuong_trinh;
Var i,s: real;
Const n=10;
Begin
While i<=n do
Begin
S:=s+i;
i:=i+1;
End;
Writeln(s);
Readln
End.

Câu 31 :

`a)` Sai

- For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Sai dấu gán =

`b)` Sai

- Var <tên biến mảng> : array [<chỉ số đầu> .. <chỉ số cuối>] of <kiểu dữ liệu>;

- Sai dấu ...

`c)` Đúng

- While <điều kiện> do <câu lệnh>;

`d)` Sai

- If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

- Dư dấu ; trước else

Câu 20 :

`+` Program Chuong trinh : Câu lệnh sai

- Tên chương trình đặt sai quy tắc chứa dấu cách

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

- Sửa : Program Chuong_trinh;

`+ `Var i, s : real; : Câu lệnh đúng

`+` Const n := 10; : Câu lệnh sai

- Câu lệnh sai cú pháp 

- Sửa : Const n = 10;

`+` Wile i <= n do; : Câu lệnh sai

- Sai cú pháp, từ khoá while

- Sửa : While i <= n do

`+` S := S + i : Câu lệnh sai

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

- Sửa : S := S + i;

`+` i = i + 1 : Câu lệnh sai

- Sai dấu gán, thiếu dấu chấm phẩy

- Sửa : i := i + 1;

`+` End. : Câu lệnh sai

- Sai dấu . để kết thúc câu lệnh ghép

- Sửa : End;

`+` Writeln(s) : Câu lệnh sai

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

- Sửa : Writeln(s);

`+ `Readln : Câu lệnh đúng

`+` End; : Câu lệnh sai

- Sai dấu ;

- Sửa : End.