Помогите, Решить в Паскале:S=1/(1+1)+1/(1+2)+...1/(1+n)

Question

Помогите, Решить в Паскале:
S=1/(1+1)+1/(1+2)+...1/(1+n)

Answer 1

Program w;
Var i,n: integer;
S: real;
Begin
writeln('Введите число повторений');
readln(n);
for i:=1 to n do S:=S+1/(1+n);
writeln(S);
End.

Comments

оператор i повторяется, пишет :Program1.pas(8) : Встречено ':=', а ожидался оператор

---

Исправил.

---

по решению верно, но елси взять n=2 ответ должен быть 0,83