面对任何数据都能过的通解。

语言：Pascal。

这是最简算法。如果不信你可以试着优化。

program p1035;
var
        n:longint;
        sum,k:real;
begin
        read(k);
        n:=1;
        repeat
                sum:=sum+1/n;
                n:=n+1;
        until sum>k;
        write(n-1)
end.