
Владислав
4 год назад
Вычислите n-оечисло Фибоначчи. Формализация: последовательность чисел Фибоначчи f от n, определяется следующим образом: f1:=1, f2:=1, fn=fn-2+fn-1, n =3;4 и т.д. Входные данные: n- переменная целого типа, n >2 . Выходные данные: переменная f целого типа, n-ое число Фибоначчи. Пожалуйста посчитайте ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ!!!
ОТВЕТЫ

Wilcox Brian
Oct 24, 2020
//проще простого, обычная рекурсия
Function f(n: integer): integer;
Begin
If n>2 then f:=f(n-2)+f(n-1) else f:=1;
End;
Var a: integer;
Begin
Readln(a);
Write(f(a));
End.
Function f(n: integer): integer;
Begin
If n>2 then f:=f(n-2)+f(n-1) else f:=1;
End;
Var a: integer;
Begin
Readln(a);
Write(f(a));
End.
52
Смежные вопросы: