По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
Входные данные
Вводится натуральное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
50
выходные данные
1 2 4 8 16 32
Операцией возведения в степень пользоваться нельзя!
Входные данные
Вводится натуральное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
50
выходные данные
1 2 4 8 16 32
Answers & Comments
Verified answer
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