Question

решить задачу с помощью PASCAL ABC. NET. :по данному числу N распечатайте все целые степени двойки не превосходящие N в порядке возрастанию. Примечание :Операцией возведения в степень пользоваться нельзя!
Входные данные: 50
Выходные:1 2 4 8 16 32
​

Answer 1

var n,m:integer;

begin

write('n=');

readln(n);

m:=1;

while m<n do

begin

 write(m,' ');

 m:=m*2;

end;

end.