По данному числу N распечатайте все целые степени двойки, не превосходящие N, в пор?
По данному числу N распечатайте все целые степени двойки, не превосходящие N, в пор??дке возрастания.
Операцией возведения в степень пользоваться нельзя!
Входные данные
Вводится натуральное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
50
выходные данные
1 2 4 8 16 32
Гость
Ответ(ы) на вопрос:
Гость 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
Не нашли ответ?
Похожие вопросы