В салоне автобуса "Дедалус" 20 рядов по 6 мест в каждом. В каждом ряду места нумеруются слева-направо: места 1, 2 и 3 находятся слева, а места 4, 5 и 6 - справа. Места 1 и 6 находятся у окон, места 2 и 5 - средние, а места 3 и ...
В салоне автобуса "Дедалус" 20 рядов по 6 мест в каждом. В каждом ряду места нумеруются слева-направо: места 1, 2 и 3 находятся слева, а места 4, 5 и 6 - справа. Места 1 и 6 находятся у окон, места 2 и 5 - средние, а места 3 и 4 - у прохода. Когда пассажир входит в автобус, то он выбирает себе место по следующему принципу: сначала он выбирает ряд с наименьшим номером, на котором есть свободные места. Если свободные места в этом ряду есть и слева и справа, то он выбирает левую половину, а если вся левая половина занята - правую. Если свободных мест на половине ряда несколько, то пассажир выбирает место, наиболее близкое к окну. Если пассажир сел на какое-то место, то он сидит на нём до конца поездки. Автобус едет по маршруту, остановки на котором занумернованы от 1 до M, останавливаясь на каждой. На остановках автобус ждут N пассажиров, причём на каждой остановке в автобус ждёт не более одного пассажира. Для каждого пассажира известна остановка, на которой он ждёт автобус и остановка, на которую он хочет попасть. Если на одной и той же остановке пассажиры выходят и заходят, то сначала выходящие пассажиры освобождают места и входящий пассажир может занять их место.
Определите для каждого из пассажиров номер места, которое он займет. Гарантируется, что всем пассажирам хватит места.
Формат входных данных
В первой строке задано 2 целых числа: M и N (1 ≤ M ≤ 1000, 1 ≤ N ≤ M) - количество остановок и пассажиров соответственно. В следующих M строках дано описание пассажиров. Каждое описание состоит из двух чисел F и T (1 ≤ F < T ≤ M) - номеров начальной и конечной остановки для этого пассажира. Описания упорядочены по возрастанию номеров начальной остановки.
Формат результата
Выведите N чисел - номера мест, которые займут пассажиры в порядке их входа в автобус
Ответ(ы) на вопрос:
Гость
const Sz = 1000; var a: array [1..Sz] of integer; a1: array [1..Sz] of integer; a2: array [1..Sz] of integer; a3: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for k:=1 to N do begin read(a[i]); readln(a1[i]); if (a[i]<>0) then a3[i]:=1 else a3[i]:=0; end; for k:=1 to N do begin if(a3[i]<>0) then begin for i:=1 to i do begin if(a3[k]=0) then d[i]:=1; if (a2[k]=i) then d[k]:=0; end; writeln(a3[i]) end;end;end.
вроде так
Не нашли ответ?
Похожие вопросы