Question

Используя эту блок-схему ,разработайте рациональные алгоритмы получения из числа 0 чисел 1024 и 500.

Answer 1

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.