Посчитать значение выражения - 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.