p67 把特定位置的位变成0，进行与运算

//67
program test;
var 
  c:char;
  i,j,k:byte;
begin
  i:=%00001111;
  for c:='0' to '9' do begin
    j:=byte(c); //将字符强制转化为整数
    k:=i and j; //与运算
    writeln( binstr(byte(c),8) ); //字符在内存中的内容
    writeln( binstr(k,8), space(4), k ); //第二列是十进制整数
  end;
end.