Номер 6, страница 29 - гдз по информатике 9 класс учебник Босова, Босова

Параграф 1.2. Запись вспомогательных алгоритмов на языке Паскаль. Глава 1. Алгоритмы и программирование - номер 6, страница 29.

Условие.

6. Напишите программу обмена значений переменных а, b, с в порядке возрастания, т. е. так, чтобы а ‹ b ‹ с. Используйте процедуру swap.

procedure swap (var x, y: integer);
var m: integer;
begin
m: =x;
x: =y;
y: =m
end;

Исходные данные вводятся с клавиатуры

Пример входных данных	Пример выходных данных
1 2 3	1 2 3
2 1 3	1 2 3
3 1 2	1 2 3
2 3 1	1 2 3

Решение.

var a, b, c: integer;
procedure swap (var x,y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
begin
writeln('Введите значения 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.