Напишите программу перестановки значений переменных а, b, с в порядке возрастания

Напишите программу перестановки значений переменных а, 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.

Опубликовано: 14.01.2019 Обновлено: 14.01.2019
Поделись с друзьями

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

12 − 9 =