Question

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

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

Входные данные
Вводится натуральное число.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
50
выходные данные
1 2 4 8 16 32

Answer 1

var n,st:integer;
begin
write('n = '); readln(n);
st:=1;
while st<=n do
 begin
 write(st,' ');
 st:=st*2;
 end;
writeln;
end.

Пример:
n = 50
1 2 4 8 16 32 

Answer 2

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var n:=ReadInteger;
  1.Iterate(k->2*k).TakeWhile(x->x<=n).Println;
end.

Тестовое решение
50
1 2 4 8 16 32