Question

Значение переменных x, y, z поменять местами так, чтобы они были упорядочены по возрастанию. (написать программу в Паскале)

Answer 1

Var
max,min,x,y,z:integer;
begin
readln(x,y,z);
//Найдём максимум
if (x>y) AND (x>z) then
max:=x
else
if (y>x) AND (y>z) then
max:=y
else
max:=z;
//Найдём минимум
if (x<y) AND (x<z) then
min:=x
else
if (y<x) AND (y<z) then
min:=y
else
min:=z;
//Результат
if (x<>min) AND (x<>max) then
writeln(min,' ',x,' ',max)
else
if (y<>min) AND (y<>max) then
writeln(min,' ',y,' ',max)
else
writeln(min,' ',z,' ',max)
end.

Answer 2

Вот пример программы на Паскале, которая меняет местами значения переменных x, y и z так, чтобы они были упорядочены по возрастанию:

program SwapVariables;
var
  x, y, z, temp: Integer;
begin
  // Ввод значений переменных x, y и z
  Write('Введите значение переменной x: ');
  Readln(x);
  Write('Введите значение переменной y: ');
  Readln(y);
  Write('Введите значение переменной z: ');
  Readln(z);

// Сортировка переменных по возрастанию
  if x > y then
  begin
    temp := x;
    x := y;
    y := temp;
  end;

if y > z then
  begin
    temp := y;
    y := z;
    z := temp;
  end;

if x > y then
  begin
    temp := x;
    x := y;
    y := temp;
  end;

// Вывод отсортированных значений переменных
  Writeln('Отсортированные значения переменных:');
  Writeln('x = ', x);
  Writeln('y = ', y);
  Writeln('z = ', z);
end.

Программа сначала запрашивает у пользователя значения переменных x, y и z. Затем она использует условные операторы для сортировки переменных по возрастанию. Если значение одной переменной больше значения следующей переменной, то они меняются местами с помощью временной переменной temp. В конце программа выводит отсортированные значения переменных x, y и z.

Примечание: В данном примере предполагается, что пользователь вводит целочисленные значения переменных x, y и z. Если нужно работать с вещественными числами, то следует заменить тип данных Integer на Real.