Составить программу для вычисления произведения 25 пунктов!!!!!!!!

1

Ответы и объяснения

2013-11-12T21:35:05+00:00
Program Task;
Var n, x, k: Integer;
a: Real;
Begin
Write('n = ');
ReadLn(n);
Write('x = ');
ReadLn(x);
a := 1;
For k := 1 To n Do
a := a * Ln(Abs(Tan(k * x)));
WriteLn('Результат: ', a:2:5);
End.