Question

Pascal abcнапишите программу, которая сортирует список работников компании по фамилии в алфавитном порядке. В списке не более 10000 строк, ввод заканчивается пустой строкой. Входные данные В каждой входной строке записаны данные о сотруднике в формате <инициалы> <фамилия>. Фамилия отделяется от инициалов пробелом. Ввод заканчивается пустой строкой. Выходные данные Программа должна вывести список сотрудников в алфавитном порядке, добавив нумерацию. Примеры входные данные J.X. Smith B.A. Weiter A.C. Johnes выходные данные 1. A.C. Johnes 2. J.X. Smith 3. B.A. Weiter

Answer 1

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

type
  fs=(string,string);

begin
  var L:=new List<fs>;
  repeat
    var aw:=ReadlnString('>').ToWords;
    if aw.Length=0 then break;
    L.Add((aw[1],aw[0]))
  until false;
  var a:=L.OrderBy(t->t[0]);
  var i:=1;
  foreach var x in a do begin
    Writeln(i:4,' ',x[1],' ',x[0]);
    i+=1
    end
end.

Пример
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
   1 A.C. Johnes
   2 J.X. Smith
   3 B.A. Weiter