Plintus
мутно как-то %)
я бы по другому сделал)

var g,n,b,i:integer
BEGIN
   b:=0;
   read(g,n);
   i:=g;
   while (b<>(n-1)) do
   begin
      g:=g*i;
      b:=b+1;
   end;
   writeln(g);
readln;
END.

На работоспособность не проверял, возможны ошибки.

Просто умножать число на само себя определенное количество раз?

Рекурсия тут конечно весьма отдаленно прослеживается =)

Дарт
ему рекурсией надо =\

зы: сижу над задачей.. вспоминаю как делается рекурсия =D

Отредактировано Mariacho (04.03.2011 15:08:53)

Хм... а я вроде как рекурсию вам и дал ну только деление через мод див надо делать - я на сях пишу дано уже просто .

провеняем n - наша рекурсивная переменная степени

    if(n == 0) return 1;
Если степень равна 0 = выдаёт еденицу ->геймовер ->выход

    if(n < 0) return power ( 1 / x, -n);

Если степень отрицательна, то выводим->pow ( 1 mod x, n)  (я непомню как в турбо уже функция степени выглядит)
и уменьшаем n на еденицу

    if(n mod 2) return x * power (x, n - 1);
Если степень кратна двум умнажем Х на икс в спенени -1 ) (это чтобы значение икса не затереть)

    return power(x * x, n / 2);
Мобщем читаем алгебру и алгоритм будет понятен )
end;

Если это не рекурсия то тогда что рекурсия ?

Отредактировано Niew (04.03.2011 16:14:07)

Это алгоритм - что я буду писать что ли всё с бигинами эндами и врайтлайнами ) я там выше разобрал кое что.... самим тож надо думать ... на самом деле лень качать турбопаскаля раде одной простой задачки вам.

Отредактировано Niew (04.03.2011 16:16:28)