В ячейке памяти информационной емкостью в один байт размещено некоторое число в диапазоне от 0 до 255. Вычислительное устройство, преобразующее содержимое ячейки, действует по следующему принципу: 1. Сдвигает все разряды байта на один бит в сторону старшего бита; 2. Старший бит переписывает в младший разряд байта и инвертирует его. Каким было исходное число, если в результате трех итераций работы устройства в ячейке оказалось число 67.

67=01100001

последнюю 1 ставим на 1 место, станет 10110000

01011000

00101100 (2)=22(10)

2+4+16=22

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

4 клетки вниз и 7 вправо