Question

Разработать схему алгоритма для вычисления n-ой степени числа a. Протестировать алгоритм для а) а=3; n=4  б) а=2;n=5

Answer 1

var
a, n, i, rez: integer;

begin
readln(a, n);
rez:=1;
for i:=1 to (n-1) do
rez:=a*a;
write(rez);
end.

Если возникли вопросы по коду или есть ошибка в ходе работы программы, пиши в комментарии.