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

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

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

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

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

var n,st:integer;beginwrite('n = '); readln(n);st:=1;while st<=n do begin write(st,' '); st:=st*2; end;writeln;end.Пример:n = 501 2 4 8 16 32 

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var n:=ReadInteger;  1.Iterate(k->2*k).TakeWhile(x->x<=n).Println;end.Тестовое решение501 2 4 8 16 32