P1035

来源:互联网 发布:梵高 星空 知乎 编辑:程序博客网 时间:2024/06/01 07:54
题目描述


已知: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
 sn,n,k:real;
 i:longint;
begin
 read(k);
 sn:=0.0;
 for i:=1 to 100000000 do//怕出现根本没有,或太大现象,所以使用for,时间估计最多1秒
  begin
   n:=i;
   sn:=sn+1/n;//累加
   if sn>k then begin//是时候判断了!
                 write(i);
                 break;//直接退出,省掉不必要的循环
                end;
  end;
end.

0 0