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

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

Question

Октавия

17 ноября, 11:20

+5

Ответы (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, в порядке возрастания.Операцией возведения в степень пользоваться нельзя!