Рекурсивное вычисление суммы первых n чисел Фибоначчи

LLIAJIYH

вычислить сумму первых n членов чисел Фибоначи составить рекурсивную задачу
4 ответа

LLIAJIYH

А что такое члены чисел?


LLIAJIYH

n членов, чисел запятую пропустилнадо именно на паскале)


LLIAJIYH

program fs;
var n:integer;
    s:integer;
function Fibonachi(n:integer):integer);
begin
     if n<=1 then fibonachi:=1 else fibonachi:=fibonachi(n-1)+fibonachi(n-2);
end;
function FibonachiSumm(n:integer):integer;
begin
     if n=1 then FibonachiSumm:=Fibonachi(n-1) else FibonachiSumm:=Fibonachi(n-1)+FibonachiSumm(n-1);
end;
begin
     write('n='); readln(n);
     if n>=1 then
                 begin
                      s:=FibonachiSumm(n);
                      writeln('Сумма ',n,' первых членов последовательности Фибоначи=',s);
                 end
             else writeln('Недопустимое количество'); 
end.


LLIAJIYH

спасибо большое)