НБ
Николай Батагов
Можно просто циклом:
S: Integer;
S := x-1;
for i:=0 to i
В первом ответе всё правильно сказали, используй логарифм.
А я хочу вот что сказать: Блез Паскаль был французом, поэтому "язык Паскаля" французский. А тебе нужен ответ на языке Pascal, да? Автор которого, Вирт, кстати.
Через экспоненту и логарифм
exp((N-1)*ln(x-1))
Поддержу Метотрона:
(X-1) dans le degré de N-1
кстати доколе учителя информатики будут давать задачи для инженерных калькуляторов желая чтобы их через циклы решали.