14 июня, 08:14

Заполните массив степенями числа 2 (от 2 в 1 степени до 2 в энной степени)

Паскаль ABCnet

+3
Ответы (1)
  1. 14 июня, 09:18
    0
    Var a:array [1 ... 30] of integer;

    i, x, n:integer;

    begin

    x:=1;

    write ('Введите степень 2 (n<=30) : ');

    readln (n);

    for i: = 1 to n do

    begin

    a[i]: = x*2;

    write (a[i],' ');

    x:=x*2

    end

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Заполните массив степенями числа 2 (от 2 в 1 степени до 2 в энной степени) Паскаль ABCnet ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы