Размещено 5 лет назад по предмету
Информатика
от jioo568
Почему программа выдает 4312 вместо 4321 ??? В чем я ошиблась??
procedure swap(var a, b: real);
var t: real;
begin
t := a; a := b; b := t;
end;
var a, b, c, d: real;
begin
writeln('Введите четыре числа ');
readln(a, b, c, d);
if (a < b) then swap(a, b);
if (b < c) then swap(b, c);
if (d < a) then swap(d, a);
if (a < d) then swap(a, d);
writeln(a, b, c, d)
end.
Задача: Напишите процедуру, которая переставляет 4 числа в порядке убывания.