Вычислить суму ряда - Turbo Pascal (34028)

Формулировка задачи:

Помогите вычислить суму ряда. S=1*2+2*3*4+...+n*(n+1)*...*2n, n є N


textual

Код к задаче: «Вычислить суму ряда - Turbo Pascal (34028)»

program summa;
 
var n, p, s, i, j: integer;
 
begin
  repeat
    write('n = ');
    readln(n);
    if n < 1 then writeln('Error: n < 1, reenter.')
  until n > 0;
  s := 0;
  for j := 1 to n do
    begin
      p := 1;
      for i := j to 2 * j do p := p * i;
      s := s + p
    end;
  writeln('s = ', s);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5

Источник