Дано натуральное число n и действительное число x. Вычислить значение суммы s=sinx+2sinx...nsinx
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.
Sin(x) в таких случаях проще выносить за знак суммы. И быстрее считается, и точнее. Как только вынесли - под суммой останется простейшая сумма чисел натурального ряда.