ac1023.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· 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.