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

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


textual

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

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.

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

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



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса:

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Никак не могу додуматься как сделать :с