已知:Sn= 1+1/2+1/3+…+1/n。显然对于任意一个整数K,当n足够大的时候,Sn大于K。
现给出一个整数K(1<=k<=15),要求计算出一个最小的n;使得Sn>K。
输入格式:
一个正整数K。
输出格式:
一个正整数N。
输入:1
输出:2
var
i,k:longint;
sum:real;
begin
readln(k);
i:=0;
sum:=0;
repeat
inc(i);
sum:=sum+1/i;
until sum>k;
writeln(i);
end.