uses crt; var a,n:integer; begin clrscr; write('Введите число: '); read(a); write('Введите еще одно число: '); read(n); if a>n then write(a,'^',n,'=',exp(ln(a)*n)) else write(n,'^',a,'=',exp(ln(n)*a)); end.
{P.s. Рабочая, если хотя бы одно из чисел положительное}
Answers & Comments
Паскаль.
uses crt;
var a,n:integer;
begin
clrscr;
write('Введите число: '); read(a);
write('Введите еще одно число: '); read(n);
if a>n then write(a,'^',n,'=',exp(ln(a)*n))
else write(n,'^',a,'=',exp(ln(n)*a));
end.
{P.s. Рабочая, если хотя бы одно из чисел положительное}