module a;integer i,j,x,c;initial begin for(;;)begin c=$fscanf(2147483648,"%b",x);for(j=50;--j>0;j)begin c=c+(j*(j+1)/2==x);end $writeb("",c-1);end end endmodule