Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Чет про программирование / практика / Быстрое возведение в степень
.docxБыстрое возведение в степень
result:= 1;
while n > 0 do
begin
if n and 1 = 1 then
result:= result * a;
n:= n shr 1;
a:= a*a;
end;
Соседние файлы в папке практика