процедуры и функции

[shelest]

С помощью процедуры или функции решить:
Дано натуральное число N. Вычислить S=2!+4!+...+2N!

[ОДИНОЧЕСТВО В СЕТИ]

function Fac(n: Word): LongInt; 
begin 
if n > 1 then 
Fac := n * Fac(n-1) 
else 
Fac := 1; 
end;
begin
.....
s:=0;
for i:=1 to n do
s:=s+fac(2*i);
...
end.

так устроит!?

[shelest]

да, спасибо

[evg_m]

function fact_n2(n: integer): integer;
var
  f,j:integer;
begin
f:=1;
for j:=1 to n do
begin
  f:=f *(2*j-1)*(2*j);// считаем факториал параллельно с суммированием
  result:=result+f;
end;
end;

n:=10;
otvet:=fact_2n(n);