Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть - 9 позиций, дробная - 3 позиции.

Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т. е. третий элемент равен (первому + второму) / 3 (индекс третьего) и т. д.

Значения первого и второго элемента: B[1]:=3; B[2]:=6;

Question

Информатика

Завия

4 марта, 12:22

Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть - 9 позиций, дробная - 3 позиции.

Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т. е. третий элемент равен (первому + второму) / 3 (индекс третьего) и т. д.

Значения первого и второго элемента: B[1]:=3; B[2]:=6;

+2

Ответы (1)

Знаете ответ?

Генислава · Answer 1

Var B: array[1 ... 25] of real; sr:real; i, n: integer; beginB[1]:=3; B[2]:=6; writeln ('Исходный массив') ; for i:=3 to 25 do beginB[i]: = (B[i-2]+B[i-1]) / i; write (B[i]:11:3) ; end; end.