Вычислить сумму и произведение

i=1,..3,..5,..7 и т.д.Нужен код
2 ответа

cos(3)=-0.9899 // 3 радиана следовательно под квадратным корнем отрицательное число, задача не имеет решения. Нужно уточнить условие.Если вдруг 3 это градусы, то так.
uses crt;
var i,j:integer;
    x,p,s:extended;
begin
clrscr;
write('x=');
readln(x);
s:=0;
i:=1;
repeat
  p:=1;
  for j:=1 to 4 do
  p:=p*ln(j+1)*sin(pi*i/6)/exp(ln(2)*exp(1))/(6*x-sqrt(1/exp(ln(cos(3*pi/180))/3)));
  s:=s+p;
  i:=i+2;
until i>11;
write('S=',s:0:10);
readln
end.


Формула в посте #1 восстановлена по фотографии в дублирующей теме. Все темы-дубли данной темы удалены.