Câu 3 :

a) X := 10; whike X := 10 do X := X + 5;

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

⇒ Sửa: X := 10; while X = 10 do X := X + 5;

b) X := 10; while X = 10 do X = X + 5;

⇒ Sai câu lệnh X = X + 5, sai dấu gán

⇒ Sửa: X := 10; while X = 10 do X := X + 5;

c) For i := 100 to 1 do write('A');

⇒ Sai vì giá trị đầu lớn hơn giá trị cuối

⇒ Sửa: For i := 1 to 100 do write('A');

d) For i := 1.5 to 10.5 do writeln('A');

⇒ Sai giá trị biến đếm, 1.5 và 10.5 là số thực

⇒ Sửa: For i := 1 to 10 do writeln('A');

Câu 4 :

a) Giá trị biến tb = 20

* * * Giải thích : 

- Giá trị ban đầu tb = 0

- Giá trị biến i chạy từ 1 đến 5

+ i = 1 ⇒ tb = tb + A[1] = 0 + 1 = 1

+ i = 2 ⇒ tb = tb + A[2] = 1 + 4 = 5

+ i = 3 ⇒ tb = tb + A[3] = 5 + 7 = 12

+ i = 4 ⇒ tb = tb + A[4] = 12 + 2 = 14

+ i = 5 ⇒ tb = tb + A[5] = 14 + 6 = 20

b) Var Diem : array[1 .. 20] of real;

Câu 5 :

uses crt;

var i, S, N : integer;

begin

clrscr;

i := 1; S := 0;

while i <= 100 do

begin S := S + i;

i := i + 1; end;

write('S = ', S);

readln

end.