Объяснение:
На Паскале:
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.
