function myPower(a: real; n : integer) : real;
begin
if n = 0 then result := 1 else if n < 0 then result := 1/myPower(a, -n) else result := myPower(a, n-1)*a;
end;
writeln(myPower(2.3, 2));
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
function myPower(a: real; n : integer) : real;
begin
if n = 0 then result := 1 else if n < 0 then result := 1/myPower(a, -n) else result := myPower(a, n-1)*a;
end;
begin
writeln(myPower(2.3, 2));
end.