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. Рабочая, если хотя бы одно из чисел положительное}
И лишь пару лет тому назад интернет не был так значим людьми, как в наши дни. Дети не ходят гулять, а сидят в интернете, играя в различные игры или общаясь с людьми в соц сетях. Живое общение заменяет "смс". Не понимаешь чего-либо в уроке или жизни - загулил, хотя можно подойти к учительнице, попросить и она попытается понятно донести ту или иную информацию; или же подойти к родителям и попросить совета. Сейчас интернет имеет большую роль в нашем образе жизни, в жизни молодежи, но это не значит, что стоит забывать о реальном мире. Блин, как-то так
Паскаль.
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. Рабочая, если хотя бы одно из чисел положительное}