讨论 / 最白痴穷举解法
Angel.Rain 2012-02-26 00:28:00
点我顶贴 收藏 删除
var m,i,j,k:longint;

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.

等差数列穷举。。最白痴了

#1 081335@2012-02-26 00:28:00
回复 删除
膜拜

膜拜一中大哥

查看更多回复
提交回复