a) Sai chỗ: While x:=10 (sau while là điều kiện)

Sửa: x:=10; while x=10 do x:=x+5;

b) Sai chỗ: x=x+5; (câu lệnh gán thiếu dấu (:))

Sửa: x:=10; while x=10 do x:=x+5;

c) Sai chỗ: Thiếu câu lệnh ghép

Sửa: S:=0; n:=0; while S <=10 do begin n:=n+1; S:=S+n; end;

d) Sai chỗ: giá trị đầu lớn hơn giá trị cuối

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

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

e) Sai chỗ: giá trị đầu và cuối là số thực

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

f) Sai chỗ: For i=1 (Câu lệnh gán thiếu dấu (:))

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

g) Sai chỗ: dư ; sau do

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

h) Sai chỗ: khai báo kiểu dữ liệu của x

Sửa: Var x: byte; For x:= 1 to 10 do write ('A');

a)

sao while là điều kiện sai chỗ while x:=10

sửa: x:=10; while x=10 do x:=x+5;

b)

chổ x=x+5; sao biến x là dấu :

sửa: x:=10; while x=10 do x:=x+5;

c)

thiếu begin end

sửa: S:=0;n:=0; while S<=10 do begin n:=n+1;S:=S+n;

d)

sai chỗ già trị đầu và giá trị cuối của câu lệnh lặp

sửa: for i:=1 to 100 do write('A');

e)

sai chỗ giá trị đầu và giá trị cuối là số thực

sửa: for i:=1 to 10 do write('A');

f)

sao biến i thiếu:

sửa: for i:=1 to 10 do write('A');

g)

sao do ko có ;

sửa: for i:=1 to 10 do write('A');

h)

khai báo biến sai

sửa: var x:integer; for i:=1 to 10 do write('A');

chúc bạn học tốt