Jurii
Высший разум
(175775)
13 лет назад
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var
n, i, j, P, Sum : Integer;
begin
Write('Введите n = '); ReadLn(n);
Sum := 0;
{ для всех i от 1 до n}
for i := 1 to n do
begin
P := 1;
{ произведение P = n * (n+1) * (n+2) * ...* 2n }
for j := i to 2*i do
P := P * j;
{ сумма произведений }
Sum := Sum + P;
end;
WriteLn('Результат = ', Sum);
end.
1*2+2*3*4+3*4*5*6+...+n*(n+1)*(n+2)*...*2n
ПОЖАЛУЙСТА