var i,n:integer; s:real;begin writeln('Vvedite n'); readln(n);s:=0; for i:=1 to n do s:=s+(1/i);writeln(s:10:10);readln;end.