p87 右移

//87
program test;
var 
  j,k:byte;
begin
  randomize;
  j:=random(99);
  k:= j shr 1; //shift right ，右移
  writeln(j,' ',k);
  writeln(binstr(j,8));
  writeln(binstr(k,8));
  writeln(j div 2); //右移一位，与整除2一样效果
  writeln;
  //
  k:=j >> 2; //>>，这个也是右移，与shr一样
  writeln(j,' ',k);
  writeln(binstr(j,8));
  writeln(binstr(k,8));  
  writeln(j div 4); //右移两位，与整除4一样效果
  //
end.