P1035 级数求和
题目描述
已知: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
此题只要看懂题就能做出来
var
k,n:longint;
sn:real;
begin
read(k)
;
while
sn<=
k do//当n是最小且sn大于k时停止
begin
inc(n)
;//
sn:=sn+
1
/n
;
end;
writeln(n);
end.