По данному числу n распечатайте все целые степени двойки, не превосходящие n, в порядке возрастания. операцией возведения в степень пользоваться нельзя! входные данные вводится натуральное число. выходные данные выведите ответ на . примеры входные данные 50 выходные данные 1 2 4 8 16 32
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
begin
var n:=ReadInteger;
1.Iterate(k->2*k).TakeWhile(x->x<=n).Println;
end.
Тестовое решение
50
1 2 4 8 16 32