bài 2:

a); s:=0; n:=0; while s<=10 do n:=n+1; s:=s+i;

`->` vòng lặp vô hạn `->` sửa lại `->` s:=0; n:=0; while s<=10 do begin n:=n+1; s:=s+i; end;

b) for i:=1 to 10 do; writeln ('A');

`->` sai cú pháp(dư dấu ";" sau "do") `->` sửa `->` for i:=1 to 10 do writeln ('A');

c) var i:=real;

begin

for i:=1 to 10 do writeln ('A');

end.

`->` sai ở phần khai báo: khai báo sai cú pháp và kiểu dữ liệu ko hợp lệ `->` sửa `->`

var i: integer;

begin

for i:=1 to 10 do writeln ('A');

end.

Câu 2 :

a) Lỗi vòng lặp vô hạn

* * * Giải thích :

- Giá trị biến S không thay đổi sau mỗi vòng lặp

- Điều kiện S <= 10 luôn đúng

- Câu lệnh sau do luôn được thực hiện

- Lặp vô hạn

b) Sai dấu chấm phẩy trước từ khoá do

c) Sai cú pháp khai báo biến i và sai kiểu dữ liệu biến i

* * * Giải thích :

- Cú pháp : Var <danh sách biến> : <kiểu dữ liệu>;

⇒ Var i := real; dư dấu =

- Kiểu dữ liệu biến đếm là số nguyên, real là số thực

⇒ Sai kiểu dữ liệu biến đếm i