Опубликовано 11.11.2018 по предмету Информатика от Гость

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

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

Ответ оставил Гуру

Пусть 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;

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.