НД
Наталья Деревягина
Есть разные способы, все зависит от того, что за числа х и n.
Для любого случая подходит такое :
if (x=0)and(n<=0) then writeln('Функция не определена')
else if (x=0)and(n>0)then rez:=0
else if (x<>0)and (n=0)then rez:=1
else if x<0 then rez:=(-1)*Exp(n*Ln(abs(x)))
else if x>0 then rez:=Exp(n*Ln(x));
е в степени х+1/х
е в степени х + ln x = е в степени х * е в степени ln x = х* е в степени х