9класс
Страница 101-107 §2.4 номер 5, ГДЗ по информатике за 9 класс к учебнику Босовой
Номер 5. Напишите программу перестановки значений переменных a, b, c в порядке возрастания, т. е. так, чтобы a < b < c. Используйте процедуру swap. Исходные данные вводятся с клавиатуры.
program z_5;
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.
