a380599812 2008-11-13 04:05:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeost[5]
得分： 90分
提交日期： 2008-11-13 19:59:00
有效耗时： 1046毫秒
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 输出过长|用户输出数据超过标准输出两倍[标准输出6位|选手输出23位]
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 通过本测试点|有效耗时62:ms
测试结果5: 通过本测试点|有效耗时62:ms
测试结果6: 通过本测试点|有效耗时63:ms
测试结果7: 通过本测试点|有效耗时187:ms
测试结果8: 通过本测试点|有效耗时62:ms
测试结果9: 通过本测试点|有效耗时203:ms
测试结果10: 通过本测试点|有效耗时188:ms
提交代码：
Var n,i,j,k:Longint；
Begin
Readln(n)；
For i:=1 to n div 2 Do
Begin
j:=i+1；
While (i+j)*(j-i+1) div 2<n Do
Inc(j)；
If (i+j)*(j-i+1) div 2=n then
Begin
For k:=i to j-1 Do
Write(k,’ ’)；
Writeln(j)；
End；
End；
End.