Задача

Составить программу для возведения числа A в степень N.


Решение

Для возведения числа A в степень N, необходимо число A умножить на самого себя N раз, т.е. организовать цикл по умножению числа A.
Возведение в степень view source

print
?01 Uses Crt;
02 Var
03 a,n,i,p: Integer;
04 Begin
05 ClrScr;
06 Write('n=');
07 Readln(n);
08 Write('a=');
09 Readln(a);
10 p:=1;
11 For i:=1 To n Do p:=p*a;
12 Write('p=',p);
13 Repeat Until KeyPressed
14 End.

view source

print
?01 Uses Crt;
02 Var
03 a,n,i,p: Integer;
04 Begin
05 ClrScr;
06 Write('n=');
07 Readln(n);
08 Write('a=');
09 Readln(a);
10 p:=1;
11 For i:=1 To n Do p:=p*a;
12 Write('p=',p);
13 Repeat Until KeyPressed
14 End.

Пояснения к примеру

Данный пример сильно ограничен, так как допустимые значения для степени должны быть больше или равны нулю, т.е. N>=0, в противном случае программа вернет неправильный результат. Также все переменные являются целыми числами, что тоже ограничивает диапазон применения программы.