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

Question

Горя

27 июля, 01:10

+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.