求Sn大于K的最小n
本文介绍了一种计算调和级数Sn大于给定数值K时最小n的方法。通过输入一个整数K（1≤K≤15），使用while循环逐步累加1/n直至Sn超过K，并输出此时的n值。
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.
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
