В салоне автобуса "Дедалус" 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. вроде так
Не нашли ответ?
Ответить на вопрос
Похожие вопросы