Delphi степень

[Nikita++]

Привет!!!

Можете, пожалуйста, выложить в эту тему алгоритм русского крестьянина?

P.S. Нужен именно он, так как у меня и так есть операция быстрого возведения в степень.

[Z1000000]

Быстрое возведение и алгоритм русского крестьянина это вроде одно и тоже.

int pow(int a, int n)
{int b, c, k;
k = n;
b = 1;
c = a;
while (k)
if (!(k%2)) {k /= 2;c *= c;} 
else {k--;b *= c;}
return b;}