caiweiwenjs 2008-11-29 21:07:00
点我顶贴
收藏
删除
program rqnoj155；
var
m,i,c:longint；
begin
readln(m)；
for i:=1 to m div 2 do
begin
c:=1-4*(-i*i+i-2*m)；
if (c>1)and(sqrt(c)=trunc(sqrt(c))) then
writeln(i,’ ’,(trunc(sqrt(c))-1) div 2)；
end；
end.
利用数学的等差数列的公式就可以了！