[Rokuell]

Код:

program Project1;

{$APPTYPE CONSOLE}

function Recursiv(k,n,f:int64):Double;
begin
 if k=n then
  begin
   Result := ( 1 - 1/f/(k+1) );
  end
 else
  begin
   Result := ( 1 - 1/f/(k+1) ) + Recursiv(k+1,n,-f*(k+1));
  end;
end;

begin
 Writeln( Recursiv(1,10,1):0:8 );
 Readln;
end.

Recursiv(k,n,f) - k и f - всегда передавай 1, n - заданное натуральное N