Delphi. По заданному числу N найдите все целые степени двойки, не превосходящие N.
Выведите все целые степени двойки, не превосходящие N, в порядке возрастания.
Выведите все целые степени двойки, не превосходящие N, в порядке возрастания.
More Questions From This User See All
Answers & Comments
Verified answer
var
n, powerOfTwo: integer;
begin
write('Введите число N: ');
readln(n);
powerOfTwo := 1;
while powerOfTwo <= n do
begin
write(powerOfTwo, ' ');
powerOfTwo := powerOfTwo * 2;
end;
end.