Var
S:real;
k:integer;
Begin
Write('n = ');ReadLn(k);
For k:= 1 to k do
S:=S+(k+1)/(k*k+1);
if k=6 then Write('S = ',S:0:2)
End.
Результат работы программы:
n = 6
S = 2.71
Объяснение:
