Программа для нахождения произведение суммы ряда - Pascal ABC

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

Помогите написать программу для такого выражения

Код к задаче: «Программа для нахождения произведение суммы ряда - Pascal ABC»

textual
var g,s:real;
    x,d:integer;
begin
g:=1;
for x:=1 to 17 do
 begin
  s:=0;
  for d:=1 to 20 do
  s:=s+exp(ln(d/(2*d+1))*d);
  g:=g*s;
 end;
write('G=',g:0:6)
end.

15   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ