Gift (Standard IO)

题意/Description:

       无。

 

读入/Input：

       输入的第一行为一个整数t。
　　接下来t行，每行包含九个自然数。

 

输出/Output：

       输出t行
　　每行一个整数，表示2^a+2^b+2^c+2^d+2^e+2^f+2^g+2^h+i。

 

题解/solution：

       用qword加，特判一下最恐怖的点。

 

代码/Code：

 

var
  ans,n:qword;
  a:array [1..8] of longint;
procedure init;
var
  i,j,p:longint;
  k,t:qword;
begin
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to 8 do
        read(a[j]);
      readln(k);
      if (a[1]=60) and (a[2]=60) and (a[3]=60) and (a[4]=60) and (a[5]=60) and (a[6]=60) and (a[7]=60) and (a[8]=60) and (k=9223372036854775808) then
        begin
          writeln('18446744073709551616');
          continue;
        end;
      ans:=k;
      for p:=1 to 8 do
        begin
          t:=1;
          for j:=1 to a[p] do
            t:=t*2;
          ans:=ans+t;
        end;
      writeln(ans);
    end;
end;

begin
  init;
end.