Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.