Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. Пример: Введите три натуральных числа: 10 15 5 5 10 15 для Паскаля, без массива

Предыдущий
вопрос Следующий
вопрос

Процедура для перестановки трех чисел в порядке возрастания без использования массива может выглядеть следующим образом на языке Pascal:

procedure SortThreeNumbers(var a, b, c: Integer);
var
temp: Integer;
begin
if a > b then
begin
temp := a;
a := b;
b := temp;
end;
if b > c then
begin
temp := b;
b := c;
c := temp;
end;
if a > b then
begin
temp := a;
a := b;
b := temp;
end;
end;
var
num1, num2, num3: Integer;
begin
Write('Введите три натуральных числа: ');
Readln(num1, num2, num3);
SortThreeNumbers(num1, num2, num3);
WriteLn('Числа в порядке возрастания: ', num1, ' ', num2, ' ', num3);
end.

Эта процедура сначала сравнивает два числа и меняет их местами, если первое число больше второго. Затем она снова сравнивает последующие два числа и опять меняет их местами, если необходимо. Таким образом, три переданных числа будут отсортированы в порядке возрастания.