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

Задача

procedure swap(var х, у: integer);
var m: integer;
begin
m: =x;
x:=y;
у: =m
end;
Исходные данные вводятся с клавиатуры.
var
a, b, c: integer;
procedure swap(var x, y: integer);
var
m: integer;
begin
m := x;
x := y;
y := m
end;
begin
write(‘Введи a,b,c > > ‘);
readln(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.
Окно вывода:
Введи a,b,c > > 9 3 5
3 5 9

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

Для упорядочивания трёх чисел по возрастанию удобно использовать процедуру swap, которая меняет местами значения двух переменных. Затем последовательно сравниваем пары чисел и при необходимости меняем их местами:

если $$a > b$$, меняем $$a$$ и $$b$$;
если $$a > c$$, меняем $$a$$ и $$c$$;
если $$b > c$$, меняем $$b$$ и $$c$$.

После этих действий выполняется условие $$a \le b \le c$$, то есть числа расположены по возрастанию.

var
  a, b, c: integer;
procedure swap(var x, y: integer);
var
  m: integer;
begin
  m := x;
  x := y;
  y := m;
end;
begin
  write(‘Введи a,b,c >> ‘);
  readln(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.