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

Формулировка задачи:

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

Код к задаче: «По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания - Pascal ABC»

textual
var n,m:integer;
begin
write('n=');
readln(n);
m:=1;
while m<n do
 begin
  write(m,' ');
  m:=m*2;
 end;
end.

12   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы