Вычислите n-й член последовательности, заданной формулами: a2n = an + an-1, a2n+1 = an – an-1, a0 = a1 = 1. Входные данные Вводится одно натуральное число n (1≤n≤1000). Выходные данные Вывести одно число an.

Question

Информатика

Саракаев

7 год назад

Вычислите n-й член последовательности, заданной формулами: a2n = an + an-1, a2n+1 = an – an-1, a0 = a1 = 1. Входные данные Вводится одно натуральное число n (1≤n≤1000). Выходные данные Вывести одно число an.

ОТВЕТЫ

Kaalbyufa

Jun 30, 2019

Var i,n,k: integer;
a: array[0..1000] of integer;
begin
write(n = ); readln(n);
a[0]:=1; a[1]:=1;
i:=2;
repeat
k:=i div 2;
if (i mod 2) = 0 then a[i]:=a[k]+a[k-1]
else a[i]:=a[k]-a[k-1];
i:=i+1;
until igt;n;
writeln(a(n) = ,a[n]);
end.

143