Написать программу для расчета суммы ​

Объяснение:

На Паскале:

program Fproj;

 var

   k,n:integer;

   S:Double;

function F(n: integer):integer;

var i:integer;

begin

    F := 1;

    for i:=2 to n do

       F := F * i;

   end;

begin

   readln(n);

   s:=0;

for k:=1 to n do

 begin

  S:=S+(F(k)+5)/F(k+1);

 end;

 writeln('S= ',S:5:2);

 readln;

end.                      

Free Pascal

а вот при рекурсии

var

n, k: longint;

s : double;

function fact(x:longint): longint;

begin

  if x=0 then fact:=1

  else fact:=fact(x-1)*x;

end;

begin

 writeln('Введите n:');

 readln(n);

 s:=0;

 for k := 1 to n do

    s:= s + (fact(k)+5)/fact(k+1);

 writeln(s:4:4)

end.