记录编号	58460	评测结果	AAAAAAAAAA
题目名称	[NOIP 2010冲刺五]无穷的序列	最终得分	100
用户昵称	FrCsKOH	是否通过	通过
代码语言	Pascal	运行时间	0.520 s
提交时间	2013-04-20 21:11:32	内存使用	0.17 MiB

program C1128;
 var n,i,a:longint;
     temp:extended;
     K:Qword;
 begin
  assign(input,'unlessseq.in');
  reset(input);
  assign(output,'unlessseq.out');
  rewrite(output);

  readln(n);
  for i:=1 to n do begin
   readln(a);

   temp:=sqrt(1+a<<3);
   if trunc(temp)=temp then K:=((trunc(temp)-1)>>1)
    else K:=trunc((temp-1)/2)+1;
   if a-K*(K-1)>>1=1 then writeln(1) else writeln(0);
  end;

  close(input);
  close(output);
 end.