本文主要是介绍级数求和ACC程序加题解PASCAL，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
级数求和ACC程序加题解PASCAL级数求和ACC程序加题解PASCAL
题目描述
已知：Sn= 1＋1／2＋1／3＋…＋1／n。显然对于任意一个整数K，当n足够大的时候，Sn大于K。
现给出一个整数K（1<=k<=15），要求计算出一个最小的n；使得Sn＞K。
输入输出格式
输入格式：
一个正整数K。
输出格式：
一个正整数N。
输入输出样例
输入样例#1：
1
输出样例#1：
2
varn,k:longint;
Sn:real;
begin
readln(k);//输入
n:=0; Sn:=0;//赋值
while Sn<=k do//一种循环语句，意思是如果
begin
n:=n+1;//递增分母。
Sn:=Sn+1/n;//累加结果。
end;//结束
writeln(n);//输出次数。
end.
这篇关于级数求和ACC程序加题解PASCAL的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
