Решить задачу с помощью PASCAL ABC. NET. :по данному числу N распечатайте все целые...

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

begin

 write(m,' ');

 m:=m*2;

end;

end.

Comments

спасибо