讨论 / 这样就过了,水水水水水水水水水水!!
zhzq1865 2011-03-14 05:56:00
点我顶贴 收藏 删除
var

m,a,b:longint;

begin

readln(m);

for a:=1 to m div 2 do

for b:=1 to m div 2+1 do

if (((a+b)*(b-a+1))div 2=m)and(a<b)then writeln(a,' ',b);

end.

查看更多回复
提交回复