Question

Составьте программу, которая выполняет сравнение двух введенных с клавиатуры символов и выводит их на экран в порядке возрастания. PascalABC.net. Заранее благодарю

Answer 1

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите два символа, не разделяя их:').ToCharArray;
  s.OrderBy(c->c).Println(',');
end.

Пример
Введите два символа, не разделяя их: rH
H,r

Answer 2

Конечно! Вот пример программы на PascalABC.NET, которая выполняет сравнение двух введенных с клавиатуры символов и выводит их на экран в порядке возрастания:

pascalCopy code
program CompareCharacters;

var
  char1, char2: Char;

begin
  Write('Введите первый символ: ');
  ReadLn(char1);

  Write('Введите второй символ: ');
  ReadLn(char2);

  if char1 < char2 then
    WriteLn('Символы в порядке возрастания: ', char1, ' ', char2)
  else if char1 > char2 then
    WriteLn('Символы в порядке возрастания: ', char2, ' ', char1)
  else
    WriteLn('Введенные символы равны: ', char1);

  ReadLn;
end.

Вы можете вставить этот код в среду разработки PascalABC.NET и выполнить его. Программа запросит у вас ввод двух символов, а затем выведет их на экран в порядке возрастания.