Question

Дано натуральное число n и действительное число x. Вычислить значение суммы s=sinx+2sinx...nsinx

Answer 1

var x, S: real;

 n: integer;

begin

 Read(x, n);

 S := 0.0;

 for var i := 1 to n do

   S += i * Sin(x);

 Write(S)

end.