Задание:
! Написать программу в паскале. Возвести число a в 13 степень за 5 операций
Решение:
Uses crt; var a: integer; x1,x2,x3,x4,x5: longint; beginreadln (a); x1: =a*a; x2: =x1*a; x3: =x2*x1; x4: =x3*x2; x5: =x4*x3; writeln (x5); end.
Знаете другой ответ?