Помогите прошу пожалуйста! Вспомните задачу о вычислителе ,умеющем только умножать ** 2 и...

Question

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

---

Comments

вам же уже растолковали как это делать, в чем проблема?

Answer 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.

Comments

где выводит?

---

Writeln(1 или 0)