Дано натуральное число N. Вычислить: cos1/sin1 * (cos1+cos2)/(sin1+sin2) * … * (cos1+cos2+…cosN)/(sin1+sin2+…+sinN). (программа Паскаль)
Вопрос посетителя
Дано натуральное число N. Вычислить:
cos1/sin1 * (cos1+cos2)/(sin1+sin2) * … * (cos1+cos2+…cosN)/(sin1+sin2+…+sinN).
Ответ эксперта
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.