a) x := 7; while x := 7 do x := x + 5;

⇒ Sai điều kiện x := 7

⇒ Điều kiện này không trả về giá trị đúng hay sai

⇒ Sửa : x := 7; while x = 7 do x := x + 5;

b) y := 3; while y < 7 do y = y + 1;

⇒ Sai câu lệnh y = y + 1

⇒ Sai dấu gán

⇒ Sửa : y := 3; while y < 7 do y := y + 1;

c) z := 0; n := 0; while z <= 7 do n := n + 1; z := z + n;

⇒ Sai câu lệnh

⇒ Chưa đưa hai lệnh sau do vào câu lệnh ghép

⇒ Gây ra lỗi vòng lặp vô hạn

⇒ Chỉ thực hiện lệnh n := n + 1 nên giá trị z không thay đổi

⇒ Điều kiện luôn đúng, vòng lặp sẽ không dừng

⇒ Sửa : z := 0; n := 0; while z <= 7 do begin n := n + 1; z := z + n; end;

a) 

x:=7; while x:=7 do x:=x+5;

sai vì điều kiện không phải là phép gán

b)

y:=3; while y<7 do y=y+1;

sai cú pháp gán đúng phải là y:=y+1; hoặc inc(y);

cái hàm inc() nếu bn chưa học thì đừng làm nha !!

c)

z:=0; n:=0; while z<=7 do n:=n+1; z:=z+n;

sai vì câu lên while chỉ thực hiện 1 câu lệnh sau nó nên câu lệnh z:=z+n sẽ bị bỏ ra khỏi vòng lặp

đúng phải là 

z:=0; n:=0; while z<=7 do begin n:=n+1; z:=z+n; end;