Сколько сдвигов надо произвести, чтобы число умножить на 8?

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. потом переправить волка, ну а потом уже козу.

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц