Дано натуральное число N. Вычислить: cos1/sin1 * (cos1+cos2)/(sin1+sin2) * ... * (cos1+cos2+...cosN)/(sin1+sin2+...+sinN). (программа Паскаль)

Question

Дано натуральное число N. Вычислить:
cos1/sin1 * (cos1+cos2)/(sin1+sin2) * ... * (cos1+cos2+...cosN)/(sin1+sin2+...+sinN).

Answer 1

Uses crt;
Var n,i:integer; x,y,z:real;
Begin clrscr;
  Write('vvedite n=');
  ReadLn(n);
  x:=0;
  y:=0;
  z:=0;
  for i:=1 to n do
    Begin
      y:=y+sin(i);
      z:=z+cos(i);
      x:=x+cos(i)/(y*z);
    End;
  Write('x=',x:4:8);
  ReadLn;
End.

Answer 2

Uses crt;
Var n,i:integer; x,y,z:real;
Begin clrscr;
  Write('введите N: ');
  ReadLn(N);
  x:=1;
  y:=0;
  z:=0;
  for i:=1 to N do
    Begin
      y:=y+sin(i);
      z:=z+cos(i);
      x:=x* (z/y);
    End;
  Write('x= ',x:4:8);
  ReadLn;
End.