//71 program test; var i,j,k:byte; begin i:=%01001101; j:=%11010100; k:=i xor j; //异或运算 writeln( binstr(i,8) ); writeln( binstr(j,8) ); writeln( binstr(k,8) ); end.
//71 program test; var i,j,k:byte; begin i:=%01001101; j:=%11010100; k:=i xor j; //异或运算 writeln( binstr(i,8) ); writeln( binstr(j,8) ); writeln( binstr(k,8) ); end.