Pascal abcнапишите программку, которая сортирует список работников компании по фамилии в

Pascal abc
напишите программку, которая сортирует перечень тружеников компании по фамилии в алфавитном порядке. В перечне не более 10000 строк, ввод кончается пустой строчкой.

Входные данные
В каждой входной строке записаны данные о сотруднике в формате lt;инициалыgt; lt;фамилияgt;. Фамилия отделяется от инициалов пробелом. Ввод заканчивается пустопорожний строчкой.

Выходные данные
Программка обязана вывести список служащих в алфавитном порядке, добавив нумерацию.

Образцы
входные данные
J.X. Smith
B.A. Weiter
A.C. Johnes

выходные данные
1. A.C. Johnes
2. J.X. Smith
3. B.A. Weiter

Задать свой вопрос
Максимка Сорочан
ABC либо ABC.NET ?
Ащехина Лариса
abc.net
Troshhin Daniil
какая разница???
Дмитрий Звеняцкий
в чем проблема, не наешь как решать, НЕ РЕШАЙ
Дмитрий Краснощекий
спасибо, извиняюсь
1 ответ
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

type
  fs=(string,string);

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

Пример
gt; J.X. Smith
gt; B.A. Weiter
gt; A.C. Johnes
gt;
   1 A.C. Johnes
   2 J.X. Smith
   3 B.A. Weiter
Tyves Viktorija
ошибку я для вас не назову, просто на сайте информатикс выдает частичное решение
Аделина Писинина
наказуемое? и каким это образом?
Яшузакова Полина
очень забавно
Варвара
вам не надоело
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт