§ 2.4. Запись вспомогательных алгоритмов на языке Паскаль ГДЗ по Информатике 9 класс. Босова.
Напишите программу перестановки значений переменных а, b, с в порядке возрастания, т. е. так, чтобы а<b<с. Используйте процедуру swap.
procedure swap (var х, у: integer);
var m: integer;
begin
m:=x;
х:=у;
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 |
Ответ
program perestanovka;
var а, b, с: integer;
procedure swap (var х, у: integer);
var m: integer;
begin
m:=x;
х:=у;
y:=m
end;
begin
writeln (‘Введите три числа через пробел’);
read (а, b, с);
if а>b then swap (а, b);
if а>с then swap (а, с);
if b>с then swap (b, с);
writeln (а,’ ‘,b,’ ‘,с);
end.