По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания. Операцией возведения в степень пользоваться нельзя!
Var a,r: integer;begin read(a); r:=1; write(1); While ((2*r)<=a) do</span> begin r:=2*r; write(' ',r); end; readln; readln end.
Зачем тут эта команда "write(1)"?
подумай
Нам нужно вывести все степени 2, разве 1 является степенью 2?
0 ой степенью
оп, точно, про нее забыл)