Рассчитать значение, определив и использовав необходимую функцию. N вводится с...

Question

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

Answer 1

Var y:real; n,i:integer;
function f(x:real):real;
begin
f:=(x+sin(x))/3;
end;
begin
write('n = ');
readln(n);
y:=0;
for i:=1 to n do y:=y+f(2*i-1);
writeln('y = ',y);
end.

Пример:
n = 5
y = 8.69759060072172