p65 逻辑与运算

//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.