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