Question

Составить программу сортировки 2-х переменных по убыванию, письменно. На Pascal

Answer 1

var a,b:real;

begin

readln(a,b);

if a>b then writeln(a,' ',b)  

else writeln(b,' ',a);

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите через пробел два числа;');

 if a < b then Swap(a, b); // a - всегда не меньше b

 Print('По невозрастанию:', a, b)

end.

Пример:

Введите через пробел два числа; 3.6 10

По невозрастанию: 10 3.6