Question

Дано целое число N (> 1), а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A·D, A·D2, A·D3, . . . .

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin;
  var (n,a,d):=ReadInteger3('Введите через пробел n,a,d');
  var b:=ArrGen(n,i->a*Power(d,i)); b.Println
end.

Пример
Введите через пробел n,a,d 10 3 4
3 12 48 192 768 3072 12288 49152 196608 786432

Answer 2

Для решения данной задачи можно использовать цикл, который будет заполнять массив последовательными значениями геометрической прогрессии.

Вот код на Python, который решает эту задачу:

pythonCopy code
N = int(input("Введите количество элементов в прогрессии (N > 1): "))
A = int(input("Введите первый член прогрессии: "))
D = int(input("Введите знаменатель прогрессии: "))

progression = [A * D**i for i in range(N)]  # формируем массив

print("Первые", N, "членов геометрической прогрессии:")
print(progression)

Пример работы программы:

csharpCopy code
Введите количество элементов в прогрессии (N > 1): 5
Введите первый член прогрессии: 2
Введите знаменатель прогрессии: 3
Первые 5 членов геометрической прогрессии:
[2, 6, 18, 54, 162]

В данном примере пользователь вводит N = 5, A = 2 и D = 3. Программа формирует массив progression с помощью генератора списков, который возвращает элементы геометрической прогрессии. Затем программа выводит этот массив на экран.