Вычислить значение функции

@LAmer0K · Регистрация: 30.06.2012

Студворк — интернет-сервис помощи студентам

Вычислить значение функции:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Z = \sum_{i = 1}^{M}\sum_{j = 1}^{i} \frac{1}{2j + i}$

@BumerangSP · 01.07.2012, 15:27

Проверьте:

Pascal

var i,j,m: integer;
    z,sum1,sum2: real;
begin
 write('M: ');
 readln(m);
 for i:=1 to m do
  begin
   for j:=1 to i do
    sum2:=sum2+(1/(2*j+i));
   sum1:=sum1+sum2;
   sum2:=0; 
  end;
 z:=sum1;
 writeln('Z = ',z:5:4);
end.

@LAmer0K 0 / 0 / 0 Регистрация: 30.06.2012 Сообщений: 9
		1
	Вычислить значение функции 01.07.2012, 01:33. Показов 1300. Ответов 1 Метки нет (Все метки) Вычислить значение функции: $https://www.cyberforum.ru/cgi-bin/latex.cgi?Z = \sum_{i = 1}^{M}\sum_{j = 1}^{i} \frac{1}{2j + i}$ 0

Опции темы

Вычислить значение функции

Решение