Помогите решить пожалуйста.

Question

Помогите решить пожалуйста.

---

Comments

А на контрольные вопросы тоже нужны ответы?

---

нет

---

На каком языке программа нужна и в какой его версии?

---

Pascal

---

вообще нужно в письменном виде

---

Что значит "Паскаль в письменном виде" ?

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var y:real;
  foreach var x in [-5,10,3,0] do begin
    if x>=3 then y:=Power(1/(x*x-2*x),2/3) else y:=cos(x);
    Writeln('x=',x:3,', y=',y)
    end
end.

Результат выполнения программы:
x=  3, y=0.480749856769136
x= -5, y=0.283662185463226
x= 10, y=0.0538608672507971
x=  0, y=1