begin integer a,b,r,i;while i<50do begin a:=inint;b:=0;r:=1;while a>0do begin b:=b+r*(a-a//2*2);r:=r*2;a:=a/10;end;a:=sqrt(b*8+1);r:=0;if a*a=b*8+1then r:=1;outint(r,0);i:=i+1;end;end