//65 program test; var i,j,k:byte; begin i:=%01001101; j:=%11010100; k:=i and j; //与运算 writeln( binstr(i,8) ); writeln( binstr(j,8) ); writeln( binstr(k,8) ); end.