分析：Pascal级数求和

级数求和

时间限制: 1 Sec  内存限制: 128 MB
提交: 10  解决: 9
[提交][状态][讨论版]

题目描述

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

输入

键盘输入 k

输出

屏幕输出 n

样例输入

1

样例输出

2

【分析】

设一个循环

for i:=1 to ... do

s:=s+1/i;

可是不知道循环的次数，我们只知道当s的值超过了k就停止循环。所以我们用while或repeat

【参考程序】

略，题目简单，请选手们自己完成

【循环】

while s<=n do

begin

  i:=i+1;

  s:=s+1/i;

end;

转载于:https://my.oschina.net/u/3233411/blog/829351