Рассчитать значение, определив и использовав необходимую функцию.
N вводится с клавиатуры.
y= (1+sin(1))/3+(3+sin(3))/3+ ...+((2*N-1)+sin(2*n-1))/3
PascalABC

var y:real; n,i:integer;function f(x:real):real;beginf:=(x+sin(x))/3;end;beginwrite('n = ');readln(n);y:=0;for i:=1 to n do y:=y+f(2*i-1);writeln('y = ',y);end.Пример:n = 5y = 8.69759060072172