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

X*X...X=N

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.