ЮГ
Юлия Гененрайх
Дано вещественное число A и целое число N. Найти первое число в степени второго!
паскаль
паскаль
WriteLn(exp(ln(A)*N));
Нашел! aⁿ
function SimplePower(a:real; n:integer):real;
var
Result:Real;
i:integer;
begin
Result:=1;
case sign(n) of
1: for i:=1 to n do Result:=Result*a;
-1: for i:=1 to n do Result:=Result/a;
end;
SimplePower:=Result;
end;