讨论 / 求错!!
dsy1004 2012-09-22 20: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 21:52:28
回复 删除
if ans>n then ans:=1;
查看更多回复
提交回复