Посчитать значение выражения - PascalABC.NET

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

Помогите пожалуйста с этим заданием, никак не могу придти к правильному ответу. Буду очень признательна

Решение задачи: «Посчитать значение выражения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const m=10;
      n=15;
var i, j :integer;
    s, p :real;
begin
p:=1;
for i:=1 to m do
 begin
  s:=0;
  for j:=i to n do
  s:=s+(i-j)/(i+j);
  p:=p*s;
 end;
writeln('P=',p:0:3);
end.

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы