Сформировать две очереди с фамилиями клиентов

[jxh]

Сформировать две очереди с фамилиями клиентов. Слить обе очереди в третью, расположив клиен-
тов через одного.

[ViktorR]

Прежде, чем раздавать задания другим, научись делать сам, или покажи, что сделал и что не получается.
Предложение:
1. "Лезем" в список литературы (есть в этом разделе) и "достаём" волшебную книжку: Т.А. Павловская, Паскаль. Программирование на языке высокого уровня.
2. Открываем раздел по динамическим структурам, читаем.
3. Берём готовое решение из параграфа "Очереди" (у меня это на стр. 134) и решаем свою задачу самостоятельно.
Получаем немного адреналина.

Влом?
Есть раздел, который называется Фриланс. Там за небольшую денежку сделают под ключь.

[jxh]

душно стало

[digitalis]

Ну так никто не держит - иди проветрись

[jxh]

лол, такие душнилы токсичные, ещё помощи 0. Ради чего вы тут сидите?

[Valick]

не, я сегодня добрый

[digitalis]

Сообщение от jxh

Ради чего вы тут сидите?

Вопрос ребром. Действительно: бросив всё, сидите тут, бездельники, в ожидании вопросов от двоечников. А если таковой соизволит выдать задание - не бросаетесь сломя голову выполнять, а ещё выёживаетесь.
Для тех, кто не понял - об этом уже 100500 раз говорено: https://www.programmersforum.ru/showthread.php?t=323061 (заголовок топика) .
Если и теперь не понял - те, кто совсем ни бум-бум, идут лесом во ФРИЛАНС и нанимают шерпов. Такса - по договорённости.

[Alex314]

"Волшебную книжку" можно и не читать.

## // PascalАВС.NЕТ 3.8.3
var Q1 := new Queue<string>(Seq('Иванов_1', 'Петров_1', 'Козлова_1', 'Павлов_1'));
var Q2 := new Queue<string>(Seq('Иванов_2', 'Сидоров_2', 'Копейкина_2'));
Q1.Println;
Q2.Println;
var Q3 := new Queue<string>;
while (Q1.Count > 0) or (Q2.Count > 0) do
begin  
  if Q1.Count > 0 then Q3.Enqueue(Q1.Dequeue);
  if Q2.Count > 0 then Q3.Enqueue(Q2.Dequeue);
end;
Q3.Print
{
Иванов_1 Петров_1 Козлова_1 Павлов_1
Иванов_2 Сидоров_2 Копейкина_2
Иванов_1 Иванов_2 Петров_1 Сидоров_2 Козлова_1 Копейкина_2 Павлов_1
}

[jxh]

благодарю

[ViktorR]

Alex314

"Волшебную книжку" можно и не читать.

Вы это о чём?
Воспитываете глупость в тех, на ком сможете зарабатывать в будущем?

PS: Знал бы что ТС удовлетворит решение

## // PascalАВС.NЕТ 3.8.3

не стал бы мараться.

PS:
jxh

лол, такие душнилы токсичные, ещё помощи 0. Ради чего вы тут сидите?

Есть два способа помочь:
- Дать подачку
- Дать работу
Первый способ - это вырастить неблагодарного бомжа, который будет попрошайничать и плеваться в след, если не подали.
Второй способ - это вырастить человека, который сможет зарабатывать сам и кормить свою семью.
Моя помощь - это ссылка на литературу.
Но вам нужна низкопробная халява. Кушайте.