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

a) Sau từ khóa while phải là điều kiện

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

b) Khi gán x thiếu dấu :

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

c) Thiếu câu lệnh ghép vì sao do thực hiện hai câu lệnh

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

d) Giá trị đầu phải lớn hơn giá trị cuối

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

e) Giá trị đầu và giá trị cuối phải là hai số nguyên

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

f) Gán biến đếm i thiếu dấu :

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

g) Sau do không được có dấu ;

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

h) Biến đếm x là kiểu nguyên, phải khai báo integer

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

Học tốt!