=0; WHILE I <= N DO BEGIN S

Câu 3: Cho đoạn trình: I:=1; s:=0; While I <= n do begin s:= s+1/I; i:=i+1; end;

Hãy thay thế đoạn trình trên bằng 1 đoạn chương trình dùng For…….do……?