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

Ввести два неравных числа A и B. Выяснить что больше B^A или
A^B ,
при этом выведя на экран оба значения.

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

Pascal ABC

Var A,B:real;
Begin
Write(A = );ReadLn(A);
Write(B = );ReadLn(B);
if Power(A,B)>Power(B,A) then WriteLn(Power(A,B), > ,Power(B,A))
else WriteLn(Power(A,B), < ,Power(B,A))
End.