ac1109.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 30 行

program tju1109;
const
  maxn=100;
var
  cross:array[1..maxn,0..(maxn+1)*maxn shr 1]of boolean;
  count,sum:array[1..maxn]of longint;
  n,i,j,t:word;
begin
  cross[1,0]:=true;
  for n:=2 to maxn do begin
    cross[n,0]:=true;
    for i:=1 to n-1 do begin
      t:=(n-i)*i;
      for j:=0 to (i+1)*i shr 1 do
        if cross[i,j] then cross[n,t+j]:=true;
    end;
  end;

  for n:=1 to maxn do
    for i:=0 to (n+1)*n shr 1 do
      if cross[n,i] then begin
        inc(count[n]);inc(sum[n],i);
      end;

  repeat
    read(n);
    writeln(count[n],' ',sum[n]);
  until seekeof;
end.