讨论 - 哪里错了？

讨论 / 哪里错了？

yekai 2012-10-24 20:57:00

点我顶贴收藏删除

var

k,n:integer;

sn:real;

begin

read(k);

n:=1;sn:=1;

while sn<=k do

begin

inc(n);

sn:=sn+1/n;

end;

write(n);

end.

查看更多回复

提交回复

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

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