Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:

@blond1k · Регистрация: 02.03.2011

Студворк — интернет-сервис помощи студентам

@Puporev · 05.03.2011, 22:10

Pascal

uses crt;
function Rec(n:integer):longint;
begin
if n<3 then Rec:=1
else Rec:=Rec(n-1)*n+Rec(n-2);
end;
var i:integer;
begin
clrscr;
write('i=');
readln(i);
write(Rec(i));
readln
end.

Считает нормально до n=13.

Опции темы

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:

Решение