ac1023.pas

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

program tju1023;
var
  t,i,n,m,a,j:longint;
begin
  read(t);
  for i:=1 to t do begin
    read(n,m);if n>m then begin a:=n;n:=m;m:=a;end;
    a:=0;
    for j:=1 to n do
      inc(a,j*(j+m-n));
    writeln(a,' ',n*(n+1)*m*(m+1) div 4-a);
  end;
end.