Алгоритм возведения в степень

[Eselkopf]

Алгоритм возведения числа в натуральную степень(ДЗ):

begin
  var x := readinteger;
  var n := readinteger;
  var res := 1;
  while n > 0 do
  begin
    if (n and 1 = 0) then
    begin
      x *= x;
      n := n shr 1;
    end
    else
    begin
      res *= x;
      n -= 1;
    end;
  end;
  print(res);
end.

[Admin]

Да, конечно, более правильно было завести новый топик, ну уж раз все писали в топике Лекции, то и отвечал я там