Здравствуйте, помогите составить алгоритм вычисления такой последовательности: 1+1/1!+2/2!+3/3!+n/n! . n вводится пользователем.
она должна быть рекурсивной или подобной, как этот алгоритм :
Код:
function FacRecursive(n: Word): LongInt;
begin
if n > 1 then
Result := n * FacRecursive(n - 1)
else
Result := 1;
end;