Question

17. Вычислить (5^3 - 3^3)/2^-1 , используя рекурсивную функцию возведения в степень.

Answer 1

===== PascalABC.NET =====

function Pow(m, n: integer): real;

begin

 if n = 0 then

   Result := 1

 else if n > 0 then

   Result := Pow(m, n - 1) * m

 else

   Result := Pow(m, n + 1) / m

end;

begin

 Println('Рекурсивная функция :', (Pow(5, 3) - Pow(3, 3)) / Pow(2, -1));

 Println('Стандартная операция:', (5 ** 3 - 3 ** 3) / (2 ** (-1)))

end.