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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.