Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент

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

Задать свой вопрос
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт