by@satos___jp
AC
module a;integer i,j,x,c;initial begin for(i=0;i<50;i=i+1)begin c=$fscanf(32'h80000000,"%b",x);for(j=0;j<=x;j=j+1)begin if(j*(j+1)/2==x)begin c=0;end end $write("%d",1-c);end end endmodule11010001 10011001 10001000 11110000 11010000 00101001 01010000 11101001 00101101 00001010 00001111 00101010 10111110 01001101 01001110 11010010 11001100 00000110 11110110 01101001 00010101 10110011 00001010 10011011 00000011 10100101 10101011 00100100 11011011 01011110 00001100 11100010 00110101 00000000 11100111 01100110 01000010 01101110 01111000 00110111 10100110 10111001 11111101 00111000 10111110 00110000 01011011 00011100 00001110 00000001
0 1 1 0 0 0 0 0 1 1 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 0 1 1 0 0 0 0 0 1 1 0 1 0 1 1 0 0 1 0 1 0 1 1 0 1