решить задачу с поддержкою PASCAL ABC. NET. :по данному числу N

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

Задать свой вопрос
1 ответ

var n,m:integer;

begin

write('n=');

readln(n);

m:=1;

while mlt;n do

begin

 write(m,' ');

 m:=m*2;

end;

end.

Паша Писжалов
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт