Напишите программу, пожалуйста. Даны два числа, не равные друг другу. Замените большее...

Question

Напишите программу, пожалуйста.

Даны два числа, не равные друг другу. Замените большее из них молулем суммы, а меньшее-разностью квадратов этих чисел.

Answer 1

Пусть X - первое число, а Y - второе.
var Z,C: Integer;
Z:= Abs(X+Y);
C:= sqr(X) - 2*X*Y + Sqr(Y);
If (X>Y) then
X := Z;
Y := C;
Else
X:=C;
Y:= Z;
End;
Или, чтобы совсем круто с функциями:
function MinusSqr(X, Y: Integer) : Integer
begin
MinusSqr = sqr(X) - 2*X*Y + Sqr(Y);
End;
if X> Y then
X := MinusSqr(X,Y)
Y := Abs(X + Y)
Else
Y := MinusSqr(X,Y)
X := Abs(X+Y)
End;