Постройте эффективный алгоритм возведения числа х в степень n = 152.

15. Постройте эффективный алгоритм возведения числа х в степень n = 152.

program gwr;

var x,n,s,i : integer;

begin

s:= 1;

writeln(‘Введите число, которое нужно возвести в степень: ‘);

read(x);

writeln(‘Введите число n’);

readln(n);

n := n — 152;

for i := 1 to n do

s := s*x;

writeln(s);

end.