Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент определяется из отношения А [n] = (A [n-1] + A[n-2]) / n. Вывести получившуюся последовательность на экран. В паскале

Question

Информатика

Тонюся

29 января, 23:04

Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент определяется из отношения А [n] = (A [n-1] + A[n-2]) / n. Вывести получившуюся последовательность на экран. В паскале

+1

Ответы (1)

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

Тонюха · Answer 1

Const

N = 10;

Var

A:array[1 ... N] of real;

i:integer;

Begin

A[1]:=1;

A[2]:=2;

For i: = 3 to N do

A[i]: = (A[i-1]+A[i-2]) / i;

For i: = 1 to N do

Write (A[i]:0:3,' ')

End.

1.000 2.000 1.000 0.750 0.350 0.183 0.076 0.032 0.012 0.004