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

Рассчитать значение, определив и использовав необходимую функцию. 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; 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы