profile
Опубликовано 6 лет назад по предмету Информатика от AskerShavaev

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

  1. Ответ
    Ответ дан vanyasokolov873

    var n,m:integer;

    begin

    write('n=');

    readln(n);

    m:=1;

    while m<n do

    begin

     write(m,' ');

     m:=m*2;

    end;

    end.

    1. Ответ
      Ответ дан AskerShavaev
      спасибо
Самые новые вопросы