标签：
已知：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.
标签：
原文地址：http://www.cnblogs.com/huzhaoyang/p/5876816.html
