Разработать схему алгоритма для вычисления n-ой степени числа a (a в степени n

Var n, m: integer; begin       readln(n, m);       writeln(exp(ln(n) * m)); end.можно было через циклы, но там слишком много условностей (вдруг степень отрицательна? ) а так в одно действие уложилось)

Дано: информатика, i-? решение:   i=log2(1/p)  и:     i=log2(1/0,062)=4 бит н:     i=log2(1/0.053)=4,24 бит  ф:     i=log2(1/0.002)=8,97 бит о:     i=log2(1/0.090)=3,47 бит р:     i=log2(1/0.040)=4,64 бит м:     i=log2(1/0.026)=5,27 бит а:     i=log2(1/0.062)=4,01 бит т:     i=log2(1/0.053)=4,24 бит к:   i=log2(1/0.028)=5,16 i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит ответ: 52,01 бит

Pascal: var a,b,c: real; begin   write ('number 1: ');   readln (a);   write ('number 2: ');   readln (b);   write ('number 3: ');   readln (c);   writeln ('srednee: ',(a+b+c)/3: 0: 4);   readln; end. c++: #include < iostream> #include < iomanip> using namespace std; int main() {     float a,b,c;     cout.setf(std: : ios_base: : fixed,std: : ios_base: : floatfield);       cout < < "number 1: ";     cin > > a;             cout < < "number 2: ";     cin > > b;     cout < < "number 3: ";     cin > > c; cout.precision(4);     cout < < "srednee: " < < (a+b+c)/3 < < endl;     return 0; }