Question

Нужно написать программы для паскаля ABC, которая расположит три числа a,b,c в порядке убывания. Не использовать массив.

Answer 1

var a,b,c:longint;
begin
  write ('A = ');
  readln (a);
  write ('B = ');
  readln (b);
  write ('C = ');
  readln (c);
  if (a<=b) and (b<=c) then writeln (c,' ',b,' ',a) else
    if (b<=a) and (a<=c) then writeln (c,' ',a,' ',b) else
     if (c<=a) and (a<=b) then writeln (b,' ',a,' ',c);
end.