Необходимо определить n-ый член последовательности (рекурсии) фибоначи.

[ulaza]

Необходимо определить n-ый член последовательности (рекурсии) фибоначи.

[IT-man]

Стучи в аську сделаю за 50 рублей

[ОДИНОЧЕСТВО В СЕТИ]

program Fib; 
 var n:byte;
function F(k:byte):word; 
begin 
 if k<2 then F:=1 else F:=F(k-1)+F(k-2);
end; 
begin 
 write('введите номер числа Фиббоначчи '); 
 readln(N); 
 writeln(N,'-е число Фиббоначчи =',F(N)); 
 readln 
end.

[Serebro]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

program Fib; 
 var n:byte;
function F(k:byte):word; 
begin 
 if k<2 then F:=1 else F:=F(k-1)+F(k-2);
end; 
begin 
 write('введите номер числа Фиббоначчи '); 
 readln(N); 
 writeln(N,'-е число Фиббоначчи =',F(N)); 
 readln 
end.

ОДИНОЧЕСТВО В СЕТИ, запустите программу и посмотрите, что выдаётся.

 if k<=2 then F:=1 else F:=F(k-1)+F(k-2);