var a, b: integer; c, d: real;
begin
  readln(b);
  c := 0;
  d := 1;
  for a := 1 to b do
  begin
    c := c + d / a;
    d := -d;
  end;
  writeln(c:0:4);
end.