2002级数求和

题目描述 Description

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

输入描述 Input Description

键盘输入 k

输出描述 Output Description

屏幕输出 n

样例输入 Sample Input

1

样例输出 Sample Output

2

数据范围及提示 Data Size & Hint

题解：

模拟。

每一次累计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.