Вычислить: sin x+sin 2x+sin 3x+.... (n слагаемых )

Question

Вычислить: sin x+sin 2x+sin 3x+.... (n слагаемых )

Answer 1

Var
   n:integer;
   S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
    S:=S+Sin(n*x);
WriteLn('S = ',S)
End.