Составьте алгоритм пожалуйста и программу в паскале:
S=sinx+sin2x+sin3x+...+sin7x

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017// Внимание! Если программа не работает, обновите версию!begin  var x:=ReadReal('x=');  Writeln('S=',Range(1,7).Select(i->sin(i*x)).Sum)end.Примерx= -0.35S=-5.32494846593293