Нужно написать программу срочно!!!!!

Question

Нужно написать программу срочно!!!!!

---

Comments

На чем: C++, Python, Pascal`и?

---

Pascal

---

Ок

Answer 1

//PascalABC.Net 3.2
function f(x: real):real;
begin
if x=trunc(x) then
 if trunc(x).iseven then result:=x*x*x*x*x else result:=1/(x*x-10)
    else result:=x;
end;

begin
write ('y = ', f(readreal('x =')));
end.

Comments

Можно написать "проще"

---

Только незачем!