级数求和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.