ac1157.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1157;
var
  t,u,n,l:longint;
  s:int64;
function last(n:longint):longint;
  begin
    if odd(n) then
      last:=(n+1) shr 1
    else
      last:=n shr 1+last(n shr 1);
  end;
begin
  read(t);
  for u:=1 to t do begin
    read(n);
    if odd(n) then
      s:=int64(n)*(n-1) shr 1
    else
      s:=int64(n)*(n+1)-int64(n shr 1)*(n shr 1+1)*2+1-last(n);
    writeln(s);
  end;
end.