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

Question

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

Answer 1

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.