Question

Создать структуру данных типа список из сотрудников компании (Фамилия, телефон).
Количество сотрудников неизвестно, перед последним вводится ноль и затем в той же строке
фамилия и телефон. Перенести список в файл (паскаль)​

Answer 1

// PascalABC.NET

begin

 var СправочникКомпании := new List<string>;

 while True do

 begin  

   var НаборСлов := ReadlnString.ToWords;

   var ЧислоСлов := НаборСлов.Length;

   case ЧислоСлов of

     2: СправочникКомпании.Add(НаборСлов[0] + ' ' +

         НаборСлов[1]);

     3: begin

           СправочникКомпании.Add(НаборСлов[1] + ' ' +

               НаборСлов[2]);

           break

        end;  

     else

       Writeln('Нарушен формат данных, строка не принята')  

   end

 end;  

 WriteAllLines('ТелефонныйСправочник.txt',

     СправочникКомпании.ToArray)

end.