Помогите прошу пожалуйста! Вспомните задачу о вычислителе ,умеющем только умножать на 2 и прибавлять 1 .Разрабатывать для него рациональные алгоритмы будет значительно проще,если воспользоваться следующей блок-схемой :...... Ис...

Если выводит 1 значит вычитание, если 2 - деление. var ch:integer;beginread(ch);while ch>0 do begin     if (ch mod 2)=0 then begin                           ch:=ch div 2;                          write(2);                          end                     else begin                          ch:=ch-1;                          write(1);                          end;               end;end.