var
p,k,s,i:real;
begin
readln(p);
s:=0;
i:=0;
k:=0;
if (p=>0) and (p<=1) then write('1 1.00000000')
else
repeat
      k:=k+1;
      s:=s+(1/k);
      i:=i+1;
until (s>p);
writeln(i:0:0,' ',s:0:8);
readln;
End.