Question

Напишите программу на Паскале.Для заданных чисел X и N вычислите Z=X^N=X*X...X.X*X...X=N

Answer 1

var
  x,n,x1 : real;
begin
  readln(x,n);
  x1:=abs(x);
  if x<0 then writeln(-1*exp(n*ln(x1)):0:0)
  else writeln(exp(n*ln(x)):0:0);
end.