Задача 7.5. Обчислити:
Цю формулу можна розписати так :

Program Pr1;
Var n:integer; s:real;
Begin S:=0; {Початкове значення суми завжди =0}
 for n:=1 to 10 do S:=S+(n+1)/(sqr(n+1)+1);
  WriteLn('S=',S:5:2);
End.

Результати роботи програми: S=1.85

Завдання 7.5.1. Обчислити суму :