Câu 1: Lỗi nằm ở chỗ là chương trình sẽ không thể kết thúc được. Vì S = 0 mà 0 < 5 nên S < 5. Vì vậy Nó sẽ luôn in ra màn hình giá trị của S mà không dừng

Câu 2:

Var n, i: integer; A: real;

Begin

Readln(n);

A:=0; i:=0;

while i + 1 < n do begin

A := A + 1/i*(i+2);

i := i + 1;

end;

writeln(A:0:2);

End.

Câu 1:

Vòng lặp sẽ lặp vô hạn vì biến S không bị tác động -> S luôn bằng 0, thoả mãn S<5 ==> lặp mãi mãi

Câu 2:

var i, n: word;

      A: real;

Begin

    Write('n = '); readln(n);

    i:=0; a:=0;

    i:=i+1;

    While i<=n do

       Begin

          A:=a + 1/(i*(i+2));

          i:=i+1;

       End;

    Write(a);

    Readln

End.