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