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

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

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

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

Листинг программы

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

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются две переменные: n и m, типа integer.
Выводится сообщение n= и считывается значение переменной n с помощью функции readln.
Переменная m инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока значение переменной m не станет больше или равно значению переменной n.
Внутри цикла выводится значение переменной m с пробелом.
Значение переменной m увеличивается вдвое (m := m * 2).
Цикл while повторяется, переходя к следующему итерации, пока условие (m < n) остается истинным.
Конец программы.