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


#1

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

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.

#2

A post was merged into an existing topic: (1 курс ФИИТ) Основы программирования - лекции


#3

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