Напишите процедуру, которая переставляет 4 числа в порядке убывания.
ПАСКАЛЬ
Напишите процедуру, которая переставляет 4 числа в порядке убывания.
ПАСКАЛЬ
ПАСКАЛЬ
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
procedure SortDescending(var a, b, c, d: 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 c < d then
begin
temp := c;
c := d;
d := temp;
end;
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;