Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Даны 2 числа. написать процедуру или функцию возведения числа в степень. возвести наибольшее число в степень наименьшего

Ответ оставил Гость

Паскаль.

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. Рабочая, если хотя бы одно из чисел положительное}