Решить с объяснением
Ответы
var
X, Y, Z: integer;
//Объявление переменных
begin
read(X, Y, Z);
//Ввод X,Y,Z
if (Y < X) and (Y < Z) then
//Если Y меньше X и Z то поменять местами Y и X
begin
//Обмен значений переменных Y и X
X := X - Y;
Y := X + Y;
X := -X + Y;
end
else if (Z < X) and (Z < Y) then
//Если Z меньше X и Y то поменять местами Z и X
begin
//Обмен значений переменных Z и X
X := X - Z;
Z := X + Z;
X := -X + Z;
end;
//153
//Таким образом в переменной Х хранится минимальное число, а
//максимальное число хранится либо в Y, либо в Z
if (Y > Z) then
//Если Y больше Z то поменять местами Y и Z
begin
//Обмен значений переменных Y и Z
Z := Z - Y;
Y := Z + Y;
Z := -Z + Y;
end;
//Таким образом в переменной Z находится максимальное число
write(X, ' ', Y, ' ', Z);
//Вывод X,Y,Z
end.