Заданы двоичные числа x и y. вычислить x*y , если: x=110010101; y=1001; и распишете ход решения, чтобы понять.)

Вычисление производится "в столбик".             1 1 0 0 1 0 1 0 1 х                          1 0 0 1             1 1 0 0 1 0 1 0 1 +1 1 0 0 1 0 1 0 1   1 1 1 0 0 0 1 1 1 1 0 1 чтобы не загромождать решение, строки из нулей, полученные умножением на 0, не пишутся. поэтому в суммировании участвуют лишь значения, представляющие собой первый сомножитель, сдвинутый до уровня единиц из разрядов второго сомножителя. в нашем случае это самая правая позиция и позиция, со свигом влево на три разряда.

 

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.