Чет про программирование / практика / Быстрое возведение в степень

Быстрое возведение в степень

result:= 1;

 

while n > 0 do

begin

  if n and 1 = 1 then

    result:= result * a;

  n:= n shr 1;

  a:= a*a;

end;