Последовательность Фибоначчи определяется следующим образом:первые два члена последовательности равны 1,а каждый следующий равен сумме двух предыдущих.То есть числами Фибоначчи являются 1,1,2,3,5,8,13,... .Определить N-е по порядку числа Фибоначчи.Помогите решить в Pascal пожалуйста)
var a:array[0..2] of integer;
i, n: integer;
begin
a[1]:=1;
a[2]:=1;
readln(n);
for i:=3 to n do
a[i mod 3] := a[(i-1) mod 3] + a[(i-2) mod 3];
writeln(a[n mod 3])
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
