Question

найти сумму заданной погрешности 1+sinx+ sin2x/2+sin3x/3+sin4x/4 .... на языке паскаль

Answer 1

var
    x, s: real;
    i, n: integer;

begin
    readln(x, n);
    s := 1;
    for i := 1 to n do
        s := s + sin(i * x) / i;
    writeln(s);
end.

//или
//PascalABC.NET 3.1 сборка 1219
begin
    var x := ReadReal('x =');
    Println(
        Range(1, ReadInteger('n =')).
        Aggregate(1.0, (s, r)-> s + sin(r * x) / r)
    );
end.