Паскваль Вычислите n чисел Фибоначи:F1=1; F2=1;...;Fn=Fn-1+Fn-2, например: F3=F2+F1=1+1=2,F4=2+1=3 b т.д.

Question

Паскваль Вычислите n чисел Фибоначи:F1=1; F2=1;...;Fn=Fn-1+Fn-2, например: F3=F2+F1=1+1=2,F4=2+1=3 b т.д.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n:longint; function f(n:integer):longint; begin if (n=1)or(n=2) then f:=1 else f:=f(n-1)+f(n-2); end; begin write("Vvedite poziciu chisla: "); read(n); write("chislo ryada na dannoy pozicii ravno ",f(n)); end.