begin
read(m);
k:=m div 2;
for i:=1 to k+1 do
for j:=1 to i-1 do
if (j+i)*(i-j+1)/2 = m then writeln(j,' ',i);
end.
等差数列穷举。。最白痴了
膜拜一中大哥
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0036 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.