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
endmodule00110111 01111000 00100000 00111011 01000010 00011100 01011011 00000001 01101001 00001111 00100100 11110001 01110100 11101001 11000100 01001110 00000110 10011001 11111101 10110101 10010000 00000000 01110011 00101101 01111101 01000010 00000011 10111010 11010011 00000101 01001111 11000001 11110110 10010101 10011110 00001001 11010010 10111110 11101111 10011101 11100111 10001000 00001010 00010101 11011110 00010000 10001000 10101011 11111110 01101111
1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 1 0 0 1 0 1 0 1 1 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 1 0 0 1 1 0 0