// 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.
Поделитесь своими знаниями, ответьте на вопрос:
Есть исполнитель «перевозчик», который перевозит через реку волка, козу и капусту. напишите алгоритм с обязательным использованием подпрограммы перевоза через реку волка, козы и капусты, если ски «перевозчика» содержит 5команд: взять козу, взять волка, взять капусту, высадить, переплыть. в лодку может поместиться только один предмет или животное. нельзя оставлять на берегу одних волка с козой и ко-зу с капустой.