[rus-4-ever]

If (x > 0) then y:=exp(ln(x)/n))
else writeln('Error: x**n -> x <= 0 !!!');

вроде так... надо по математике проверить...

[Virtyaluk]

morgan1991,
Q:> А как посчитать x**3 или корень четвертой степени из x?
A: Hе мешало бы вспомнить школьный курс математики.

x**n=exp(ln(x)*n))
Ограничение: x>0
т.о. надо написать:

Код:

     If (x > 0) then y:=exp(ln(x)*n))
                else writeln('Error: x**n -> x <= 0 !!!');

основной код напишешь сам т.е. ввод чисел и т.д.

[pva]

Дайте ссылок на алгоритмы антиплагиата? (я на больничном, мне заняться нечем)

[Admiral]

morgan1991 Функция возведения в степень
Применительно к теме использовать так

Код:

Var y:Real;
{...}
y := Pow(5, 1/7);