Question

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

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.