提示：
除以奇数A，如果整除，且商为B，则输出B-A/2和B+A/2
除以偶数A，如果余1，且商为B，则输出B-A/2+1和B+A/2
除数从待求数K的1/2开始到2结束递减：）

[quote]提示：
除以奇数A，如果整除，且商为B，则输出B-A/2和B+A/2
除以偶数A，如果余1，且商为B，则输出B-A/2+1和B+A/2
除数从待求数K的1/2开始到2结束递减：）[/quote]
看不懂

穷举！
var a:array[1..2,1..100] of longint;
    i,k,n,s,t:longint;
begin
  assign(input,'c:\givensum.in');
  reset(input);
  assign(output,'c:\givesum.out');
  rewrite(output);
  readln(n);
  s:=0;
  for i:=1 to n div 2 +1 do
  begin
    t:=i;
    k:=i;
    while k<n do
    begin
      t:=t+1;
      k:=k+t;
    end;
    if k=n then
    begin
      s:=s+1;
      a[1,s]:=i;
      a[2,s]:=t;
    end;
  end;
  if s=0 then writeln(n)
  else
  begin
    writeln(s);
    for i:=1 to s do writeln(a[1,i],' ',a[2,i]);
  end;
  close(input);
  close(output);
end.
[em2][em2][em2]