讨论 - 求错！！

讨论 / 求错！！

dsy1004 2012-09-22 05:03:00

点我顶贴收藏删除

var t,n,ans:longint;

begin

readln(n);

ans:=1;

t:=0;

repeat

n:=n-ans;

inc(t);

inc(ans);

if ans>n then ans:=0;

until n=0;

writeln(t);

end.

#1 yumaosheng@2013-11-04 05:52:28

回复删除

if ans>n then ans:=1;

查看更多回复

提交回复

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

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