Дано натуральное число N. Вычислить: cos1/sin1 * - вопрос №111212681355 от pvpgaydukoxzb3r 14.02.2021 06:25

Question

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

pvpgaydukoxzb3r · Answer

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.