Найти разность между квадратом большего и кубом меньшего для двух чисел в весёлых с клавиатуры паскаль

Question

Трофима

10 февраля, 02:39

+1

Ответы (1)

Знаете ответ на вопрос?

Майя · Answer 1

Var A, B:real;

Begin

Write ('Введите два числа: ') ; ReadLn (A, B) ;

if A>B then WriteLn (A*A-B*B*B)

else if A
else WriteLn ('Числа равны')

End.