Используя эту блок-схему ,разработайте рациональные алгоритмы получения из числа 0 чисел 1024 и 500.
Answers & Comments
vladrus113
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.
Answers & Comments