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'h8000_0000,"%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 endmodule10011100 00001010 10001111 11111101 01011000 01000010 01111000 00011100 00101111 01100101 00001000 10110011 11101011 00000001 10101111 10111110 01001110 01011011 00000011 11000010 00111101 00001111 01101001 10000110 00010101 10101011 00110110 10001001 10110010 10000001 00101101 00001001 11010010 00110111 10000011 00100000 01010000 10001000 00100100 10110110 10011001 11100111 11001010 00000000 11000111 00000011 10110001 10001000 01111101 00000110
0 1 0 1 0 1 1 1 0 0 0 0 0 1 0 1 1 1 1 0 0 1 1 0 1 1 0 0 0 0 1 0 1 1 0 0 0 1 1 0 1 1 0 1 0 1 0 1 0 1