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.

Answer 2

Зачем тут эта команда "write(1)"?

Answer 3

подумай

Answer 4

Нам нужно вывести все степени 2, разве 1 является степенью 2?

Answer 5

0 ой степенью

Answer 6

оп, точно, про нее забыл)