Ввести два неравных числа A и B. Выяснить что больше B^A или A^B , при этом выведя на экран оба значения.
Ввести два неравных числа 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.
Не нашли ответ?
Похожие вопросы