Вычисление суммы и произведения

[Vertopuz]

Доброго времени суток.
Помогите пожалуйста с кодом.

[Hacker19_90]

вот вам для примера!

{Для суммы}
x := 3;
sum := 0;
for n := 1 to 4 do
    sum := exp((x-1)*ln(2*n+1))/((2*n+1)*exp((x+1)*ln(2*n+1)));
WriteLn(sum);
{Для произведения}
_MUL := 1;
for k := 1 to 8 do
  _MUL := _MUL*((k+3)/(k+5));
WriteLn (_MUL:4:3);

[Naposaram]

Сообщение от Hacker19_90

вот вам для примера!

{Для суммы}
x := 3;
sum := 0;
for n := 1 to 4 do
    sum := exp((x-1)*ln(2*n+1))/((2*n+1)*exp((x+1)*ln(2*n+1)));
WriteLn(sum);
{Для произведения}
_MUL := 1;
for k := 1 to 8 do
  _MUL := _MUL*((k+3)/(k+5));
WriteLn (_MUL:4:3);

О, у меня подобная задачка =) значит так П это _MUL ?

[Stilet]

Да.

sum := exp((x-1)*ln(2*n+1))/((2*n+1)*exp((x+1)*ln(2*n+1)));

Экскьюз ме, а суммирование где? Имелось ввиду:

sum := sum + exp((x-1)*ln(2*n+1))/((2*n+1)*exp((x+1)*ln(2*n+1)));

Да?