Pascal:

Вычислить значение выражения y=x^n - z^k. Вычисление значения степени оформить в виде рекурсии.

Function Pow (x:real; n:integer) : real;

begin

if n=0 then Pow:=1

else Pow:=Pow (x, n-1) * x

end;

var

x, z:real;

n, k:integer;

begin

Writeln ('Введите x, n, z, k: ') ; Read (x, n, z, k) ;

Writeln (Pow (x, n) - Pow (z, k))

end.

Пример

Введите x, n, z, k:

3.7 5 2.18 4

670.85426424