Question

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

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

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

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

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

Answer 1

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

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