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

[Maxim387]

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

[Alex11223]

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var y:real;
    i:byte;
begin
   y:=0;
   For i:=0 to 2 do
      y:=y+(i*2+1+Sin((i*2+1)*pi/180))/3;
   Writeln(y:8:5);
   Readln;
end.

[Sciv]

Сообщение от newerow1989

y:=y+(i*2+1+Sin((i*2+1)*pi/180))/3;

Пи лишняя

[newerow1989]

Тогда

y:=y+(i*2+1+Sin(i*2+1))/3;