p75 逻辑非运算

//75
program test;
var 
  i,j,k:byte;
begin
  i:=%11111111;
  for j:=0 to 9 do begin
    k:=i xor j;
    writeln( binstr(j,8) );
    writeln( binstr(k,8) ); //可以有选择地取反
    writeln( binstr(not(j),8) ); //全部取反
    writeln;
  end;
end.