По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания.

Операцией возведения в степень пользоваться нельзя!

Question

Измарагд

17 июля, 11:33

+2

Ответы (1)

Знаете ответ на вопрос?

Эла · Answer 1

Var a, r: integer; begin read (a) ; r:=1; write (1) ; While ((2*r) <=a) do begin r:=2*r; write (' ', r) ; end; readln; readln end.

По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания.Операцией возведения в степень пользоваться нельзя!