Question

Delphi. По заданному числу N найдите все целые степени двойки, не превосходящие N.
Выведите все целые степени двойки, не превосходящие N, в порядке возрастания.

Answer 1

var

n, powerOfTwo: integer;

begin

write('Введите число N: ');

readln(n);

powerOfTwo := 1;

while powerOfTwo <= n do

begin

write(powerOfTwo, ' ');

powerOfTwo := powerOfTwo * 2;

end;

end.