Составить программу вычисления a^n

Question

Составить программу вычисления a^n

Comments

Нужно просто ввести два числа и вывести результат? Так для этого есть функция power. Тут даже никакого алгоритма придумывать не надо.

Answer 1

Держи и удачи!
Uses crt;
Var a,n,i:integer;
Begin
readln(a,n);
for i:=1 to n do a:=a*a;
writeln(a);
End.

Comments

это только для натуральных показателей степени. Если n будет 0 или отрицательное, работать не будет.