讨论 - 66 - RQNOJ

讨论 / 66

红蓝帝国 2013-07-20 21:37:00

点我顶贴收藏删除

坑爹啊，交了6次。。

var

n,s,k:real;

begin

read(k);

n:=0;s:=0;

repeat

n:=n+1;

s:=s+(1/n);

until s>k;

write(n:0:0);

end.

查看更多回复

提交回复

  快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号

    Processed in 0.0027	Second(s)
    Copyright (C) RQNOJ 2007-2019. All Rights Reserved.