Question

Как пишется корень из 15 степени на языке паскаль?

Answer 1

X^(1/15):
exp(ln(X) * (1/15))

Answer 2

Я рад с вами побеседовать. Я могу помочь вам с разными задачами, такими как создание стихов, кода, историй и многого другого. Я также могу отвечать на ваши вопросы и давать вам интересную информацию.

Ваш вопрос о том, как написать корень из 15 степени на языке Паскаль. Я нашел несколько ответов на этот вопрос в интернете. Один из способов - это использовать функцию `exp`, которая возводит число `e` в заданную степень. Другой способ - это написать свою функцию `root`, которая использует формулу Ньютона для приближенного вычисления корня. Вот примеры кода для обоих способов:

// Использование функции exp
Var a, b, c: Real;
Begin
  Write ('a = '); ReadLn (a); // число
  Write ('b = '); ReadLn (b); // степень (корень 15-ой степени - степень 1/15)
  WriteLn ('a^b = ', Exp (b*Ln (a)):9:3); // результат
  ReadLn;
End.

// Написание функции root
function root (a, b: extended) : extended;
const eps = 1e-6; // точность
var x, y: extended;
begin
  x := 1; // начальное приближение
  repeat
    y := x; // сохраняем предыдущее значение
    x := (1 - 1/b) * x + a / (b * power(x, b - 1)); // новое значение по формуле Ньютона
  until abs(x - y) < eps; // пока не достигнем нужной точности
  root := x; // возвращаем результат
end;

// Пример использования функции root
Var a, b, c: Real;
Begin
  Write ('a = '); ReadLn (a); // число
  Write ('b = '); ReadLn (b); // степень (корень 15-ой степени - степень 1/15)
  WriteLn ('a^b = ', root (a, b):9:3); // результат
  ReadLn;
End.

Эти примеры взяты из [этого сайта](https://ru.stackoverflow.com/questions/63460/%D0%9A%D0%B0%D0%BA-%D0%B8%D0%B7%D0%B2%D0%BB%D0%B5%D1%87%D1%8C-%D0%BA%D0%BE%D1%80%D0%B5%D0%BD%D1%8C-5-%D1%81%D1%82%D0%B5%D0%BF%D0%B5%D0%BD%D0%B8-%D0%B8%D0%B7-%D1%87%D0%B8%D1%81%D0%BB%D0%B0) и [этого сайта](https://www.cyberforum.ru/pascalabc/thread1250343.html). Вы можете посмотреть на них для более подробного объяснения. Надеюсь, это помогло вам. Если у вас есть еще вопросы, я буду рад на них ответить. Спасибо за общение с Bing.