2002级数求和
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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.
以上是关于2002级数求和的主要内容，如果未能解决你的问题，请参考以下文章