讨论 - 水水水水水

讨论 / 水水水水水

shit 2012-01-19 04:51:00

点我顶贴收藏删除

program hhh;

var a:longint;

v:real;

begin

init;

read(a);

v:=1;

p:=1;

while v<=a do

begin

p:=p+1;

v:=v+1/p;

end;

write(p);

end.

查看更多回复

提交回复

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

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