Дано натуральное число n вычислить 1*2+2*3*4+...+ n*(n+1)*...*2n (паскаль, цикл)
Var
s, p: longint;
i, j, n: integer;
begin
Write(Введите n: ); Readln(n);
s := 0;
for i := 1 to n do
begin
p := 1;
for j := i to 2 * i do p := p * j;
s := s + p
end;
Writeln(Сумма равна , s)
end.
Тестовое решение:
Введите n: 5
Сумма равна 158306
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
