var n:integer;
var res:Double;
begin

res := 1;
n := 2;

while(sqrt(sqr(res - Ln(2))) > 0.0001 ) do
  begin
  res := res + (Power(-1, n-1) / n);
  n := n+1;
  writeln(res);
  end;
  writeln(n);
end.