已知：Sn= 1＋1／2＋1／3＋…＋1／n。显然对于任意一个整数K，当n足够大的时候，Sn大于K。
　　现给出一个整数K（1<=k<=15），要求计算出一个最小的n；使得Sn＞K。

键盘输入 k

屏幕输出 n

1

2

题解：

模拟。

每一次累计1除以n的值，直到这个值大于了s为止。

var i,k,n:longint;

    s:real;

begin

 readln(k);

 while s<=k do

  begin

   inc(n);

   s:=s+1/n

  end;

 writeln(n)

end.