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