Question

Даны три числа,вывести их в порядке не возрастания. Прога - PASCAL ABC

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1 способ
begin
  var a:=ReadArrInteger(3);
  a:=a.Sorted.Reverse.ToArray; a.Println;
end.

2 способ
begin  
  var (a,b,c):=ReadInteger3('Введите 3 числа->');
  if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
  if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
  if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
  if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
  if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
  if (c>b) and (b>a) then begin Println(c,b,a); exit; end; 
end.

Answer 2

Для решения данной задачи на языке Pascal ABC можно использовать алгоритм перестановок. Вот пример кода, который реализует этот алгоритм:

program Permutation;

var
  a: array[1..3] of integer;
  i, j, o, k, t: integer;

procedure Swap(var a, b: integer);
var
  temp: integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  // Вводим числа
  writeln('Введите три числа:');
  for i := 1 to 3 do
    readln(a[i]);

// Сортируем числа в порядке неубывания
  for i := 1 to 2 do
    for j := i + 1 to 3 do
      if a[i] < a[j] then
        Swap(a[i], a[j]);

// Выводим отсортированные числа
  writeln('Числа в порядке неубывания:');
  for i := 1 to 3 do
    writeln(a[i]);
end.

Эта программа сначала считывает три числа, а затем сортирует их в порядке неубывания. Результат выводится на экран.

Например, если ввести числа 5, 2 и 7, программа выведет:

Числа в порядке неубывания:
7
5
2

Обратите внимание, что в данном примере используется язык Pascal ABC. Если у вас установлен другой компилятор Pascal, код может немного отличаться.

Источники: -: 50 - ABC Pascal