本文主要是介绍信息学奥林匹克竞赛-级数求和，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
已知：Sn= 1＋1／2＋1／3＋…＋1／n。显然对于任意一个整数K，当n足够大的时候，Sn大于K。
现给出一个整数K（1<=k<=15），要求计算出一个最小的n；使得Sn＞K。
输入格式：
一个正整数K。
输出格式：
一个正整数N。
输入：1
输出：2
var
i,k:longint;
sum:real;beginreadln(k);i:=0;sum:=0;repeatinc(i);sum:=sum+1/i;until sum>k;writeln(i);
end.这篇关于信息学奥林匹克竞赛-级数求和的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
