câu 1: xác định lỗi trong các câu lệnh sau .Sửa lại a) S:=0 ; For i=1 to 100 do s:=s+2; b) T: =0 ; For i : =2 to 50 do T= T*i; C) S:= 0 ; For i:= 10 to 5 do S: = S+i; d) T: =0 ; While T- 10 do T :=T+2; E) S: = 0 ; N:=0 While S<10 do n : =n+2 ; S:= S+N GIẢI GIÚP MIK VS Ạ

a) S:=0 ; For i=1 to 100 do s:=s+2;

sửa : For i=1 to 100 do s:=s+2; ⇒ For i:=1 to 100 do s:=s+2;

* vì trong pascal dấu ''='' là ":="

b) T: =0 ; For i : =2 to 50 do T= T*i;

sửa: T: =0; ⇒ T: =1;

* vì khi nhân nếu T = 0 thì kết quả luôn là 0 nên phải sửa lại thành 1 để có đc kết quả đúng.

C) S:= 0 ; For i:= 10 to 5 do S: = S+i;

sửa:  For i:= 10 to 5 do S: = S+i; ⇒ For i:= 5 to 10 do S: = S+i;

* vì giá trị đầu phải bé hơn giá trị cuối

d) T: =0 ; While T- 10 do T :=T+2;

sửa: While T- 10 do T :=T+2; ⇒ While T < 10 do T :=T+2;

* vì sau while là một điều kiện

e) S: = 0 ; N:=0 While S<10 do n : =n+2 ; S:= S+N

sửa: N:=0 While S<10 do n : =n+2 ; S:= S+N

⇒ N:=0;

While S<10 do

begin

n : =n+2 ;

S:= S+N;

end;

* vì có 2 câu lệnh phải đặt vào "begin...end;" và sau mỗi câu lệnh phải có ";"