Написать рекурсивную функцию возведения числа а в степень к (Pascal)

Question

Написать рекурсивную функцию возведения числа а в степень к (Pascal)

Answer 1

function myPower(a: real; n : integer) : real;

begin

   if n = 0 then result := 1 else if n < 0 then result := 1/myPower(a, -n) else result := myPower(a, n-1)*a;

end;

begin

   writeln(myPower(2.3, 2));

end.

Comments

это не легкое решение

---

к сожалении более простого решения я не знаю :(

---

ничего)