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

var
n:longint;
a:int64;
begin
assign(input,'unlessseq.in');
assign(output,'unlessseq.out');
reset(input);
rewrite(output);
read(n);
for n:=1 to n do
  begin
  read(a);
  if sqr(trunc(sqrt(a*8-7)))=a*8-7 then writeln('1') else writeln('0');
  end;
close(input);close(output);
end.