p88 用移位来算乘以10

//88
program test;
var 
  i,j,k:byte;
begin
  randomize;
  i:=random(9); //产生9以内的随机数
  j:=i<<3; //左移3位，相当乘以8
  k:=i<<1; //左移1位，相当乘以2
  writeln(i,' ',j,' ',k);
  writeln(binstr(i,8));
  writeln(binstr(j,8));
  writeln(binstr(k,8));
  writeln(binstr(j+k,8)); // 8i+2i=10i
  writeln( j+k,' ',10*i ); // 10i。所以输出一样
end.