Дано вещественное число A и целое число N (> 0). Вывести A в степени N: AN = A·A·…·A (числа A перемножаются N раз).


Program begin82;
Uses Crt;
Var

a:Real; {действительно число}
as:Real; {число, возведенное в нужную степень}
n:Integer; {степень}
i:Integer; {счетчик цикла}

Begin
ClrScr;
Write (‘a = ‘ ); readln (a);

{цикл проверки степени}
repeat
ClrScr; {очищаем эклан}
WriteLn(‘a = ‘, a:2:2); {вводим число}
Write (‘n = ‘ ); readln (n); {запрашиваем степень}
until (n > 0);

as := 1;
for i:= 1 to n do
begin
as:= as * a;
end;

WriteLn(a:2:2, ‘ в степени ‘, n, ‘ = ‘, as:2:2);

repeat
until (keypressed)
end.

Очень полезная программа!