Реализации алгоритмов/Быстрое возведение в степень

Используется представление числа x^m:

$x^{m}=x^{m_{0}}\cdot \left(x^{2}\right)^{m_{1}}\cdot \left(x^{2^{2}}\right)^{m_{2}}\cdot \left(x^{2^{3}}\right)^{m_{3}}\cdot \dots \cdot \left(x^{2^{k}}\right)^{m_{k}}$.

Язык Си

int power(int t, int k) // возведение t в степень k
{
  int res = 1;
  while (k) 
      {
	if (k & 1) 
           res *= t;
	t *= t;
	k >>= 1;
      }
  return res;
}

Паскаль

function power(t, k: integer): integer; {возведение числа t в степень k}
var
  res:integer;
begin
  res := 1;
  while k > 0 do
  begin
    if k mod 2 = 1 then
      res := res * t;

    k := k div 2;
    t := t * t;
  end;
  power := res;
end;

Python

def FastPow (t, k):  # Быстрое возведение числа t в степень k
    res = 1
    while k:
        if (k & 1):
            res *= t
        k = k >> 1
        if k == 0:
            break
        t *= t
        
    return res