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
endmodule01111000 00000110 00100111 11000111 10101011 11000110 01110000 00000001 00001000 00110111 01000010 00101101 10100011 00111110 11010111 11101000 01011011 00111111 11000100 10001000 01011011 00010100 01101010 11110100 11100111 00001111 00010101 00011100 11010010 00100101 00000100 00000011 00001010 01100101 11001000 10111011 11111101 00100000 00000000 00011010 01101001 01001110 11110101 10111100 10111110 00100100 01111011 11000001 00000011 10011001
1 1 0 0 1 0 0 1 0 1 1 1 0 0 0 0 1 0 0 1 1 0 0 0 1 1 1 1 1 0 0 1 1 0 0 0 1 0 1 0 1 1 0 0 1 1 0 0 1 1