Напишите на языке паскаль наиболее короткие алгоритмы вычисления у=х^17

Отвечаю:

вычисляем x^8 :
y := x*x; { x^(1+1) = x^2 }
y := y*y; { x^(2+2) = x^4 }
y := y*y; { x^(4+4) = x^8 }


вычисляем x^10 :
y := x*x; { x^(1+1) = x^2 }
y := x*y*y; { x^(1+2+2) = x^5 }
y := y*y; { x^(5+5) = x^10 }


вычисляем x^15 :
y := x*x*x; { x^(1+1+1) = x^3 }
y := x*y*y; { x^(1+3+3) = x^7 }
y := x*y*y; { x^(1+7+7) = x^15 }


вычисляем x^19 :
y := x*x; { x^(1+1) = x^2 }
y := y*y; { x^(2+2) = x^4 }
y := x*y*y; { x^(1+4+4) = x^9 }
y := x*y*y; { x^(1+9+9) = x^19 }