Задание 5 Параграф 2.4 ГДЗ Босова 9 класс 2017 (Информатика)

Задача

procedure swap (var x, у: integer);
var m: integer;
begin
m: =x;
x:=y;
у: =m
end;
Исходные данные вводятся с клавиатуры.
Пример входных данных
1 2 3
2 1 3
3 1 2
2 3 1
Пример выходных данных
1 2 3
1 2 3
1 2 3
1 2 3

Подробный ответ

Чтобы упорядочить три числа по возрастанию, достаточно последовательно сравнить пары переменных и при необходимости менять их местами с помощью процедуры swap.

Сначала проверяем пару $$a$$ и $$b$$, затем $$a$$ и $$c$$, потом $$b$$ и $$c$$. После этих трёх проверок выполняется условие $$a < b < c$$.

program pst;
var
  a, b, c: integer;
procedure swap(var x, y: integer);
var
  m: integer;
begin
  m := x;
  x := y;
  y := m
end;
begin
  writeln(‘Введите три числа через пробел’);
  read(a, b, c);
  if a > b then swap(a, b);
  if a > c then swap(a, c);
  if b > c then swap(b, c);
  writeln(a, ‘ ‘, b, ‘ ‘, c);
end.