Question

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

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.