2002年分区联赛普组组之一 级…

Description

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

Input

k

Output

n

Sample Input

 

1

 

Sample Output

 

2

解题思路：读入数据，用while型循环，最后输出累加的次数即可。

程序：

var

  n:longint;

  k,sn:real;

begin

  read(k);

  n:=0;

  while sn<=k do

    begin

      inc(n);

      sn:=1/n+sn;

    end;

  writeln(n);

end.