Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, ... Pascal ABC

Нужно вывести квадраты и кубы первых 10 чисел последовательности
1, 2, 4, 7, 11, 16, ... в PascalABC.

1) Как устроена последовательность

Разности между соседними членами растут на 1:

• 2 − 1 = 1

• 4 − 2 = 2

• 7 − 4 = 3

• 11 − 7 = 4

• 16 − 11 = 5

То есть каждый следующий элемент получается так:

• начинаем с a = 1

• прибавляем d, где d сначала 1, потом 2, потом 3 и т.д.

Формула шага:

• a := a + d

• d := d + 1

2) Что именно выводим

Для каждого из первых 10 членов:

• само число a

• его квадрат a*a

• его куб a*a*a

Удобно вывести в виде таблицы: число, квадрат, куб.

3) Программа на PascalABC

pascal
Копировать код
begin
  var a := 1;  // текущий член последовательности
  var d := 1;  // текущая прибавка (1, 2, 3, ...)
  writeln('n':3, 'a':8, 'a^2':12, 'a^3':14);
  for var i := 1 to 10 do
  begin
    var sq := a * a;
    var cu := a * a * a;
    writeln(i:3, a:8, sq:12, cu:14);
    a := a + d;  // получаем следующий член
    d := d + 1;  // увеличиваем прибавку
  end;
end.

4) Какие 10 чисел получатся

Первые 10 членов последовательности будут:
1, 2, 4, 7, 11, 16, 22, 29, 37, 46

Программа как раз их и обработает, выводя для каждого квадрат и куб.