напишите программу для вычисления n-ной степени числа х.вычисления описать вкаждым из трех вариантов оператора цикла

1

Ответы и объяснения

2014-02-28T18:01:15+00:00
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  //   {или напишите "if (k and 1 = 1)" для большей скорости выполнения}  
res := res * t;  
 t := t * t;
k := k div 2;     //   {или напишите "k := k shr 1;" для большей скорости выполнения}   end;  
power := res;
end;