Question

можете помояь сейчас нужно
по данному N распечатайте все целые степени двойки,не превосходящие N,в порядке возростания.
Операцией возведение в степень пользоватьс нельза
​

Answer 1

Например так:

var

 N, S: word;

begin

 S := 1;

 Read (N);

 while S <= N do

 begin

 Write (S, ' ');

 S := S * 2;

 end

end.