Question

PASCAL 
 Написать процедуру для расчета степени N вещественного числа A ( N-натуральное число).

Answer 1

Procedure Power(x:real; n:integer);
var i:integer;
     p:real;
begin
p:=1;
 for i:=1 to n do
  p:=p*x;
end;