Question

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

Answer 1

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.

Answer 2

спасибо