Себастьянович
6 год назад
Формула N
Оценка за задачу: 30 баллов
В гонках "Формулы N" участвует N машин. В результате квалификационного заезда машины получили порядковые номера и стартовали в порядке от 1 до N.
Вася - страстный поклонник гонок, но у него в общежитии плохой интернет и он не может смотреть видео-трансляцию. Поэтому он вынужден читать текстовую трансляцию, в которой все сообщения имеют вид "Машина номер X обогнала машину номер Y".
Вася ненадолго отвлекся и перестал понимать текущий порядок машин на трассе. Помогите ему понять, в каком порядке расположены машины по известным сообщениям с начала текстовой трансляции.
Формат входных данных
В первой строке заданы два натуральных числа N и M (1 ≤ N, M ≤ 100000) - количество машин и сообщений об обгоне соответственно.
В следующих M строках содержатся описание сообщений об обгоне: пары чисел X и Y (1 ≤ X, Y ≤ N) - машина X обогнала машину Y. Гарантируется, что машина Y ехала непосредственно перед машиной X на момент сообщения.
Формат результата
Выведите N чисел - порядок, в котором находятся машины после обработки всех сообщений.
Примеры
Входные данные
3 4
2 1
3 1
3 2
1 2
Результат работы
3 1 2
ОТВЕТЫ
Христодул
Jul 21, 2019
Var
n, m, x, y, i: int64;
ar: array[1..100000]of int64;
ms: array[1..100000]of int64;
begin
read(n, m);
for i := 1 to n do
begin
ar[i] := i;
ms[i] := i;
end;
for i := 1 to m do
begin
read(x, y);
swap(ms[x], ms[y]);
swap(ar[ms[x]], ar[ms[y]]);
end;
for i := 1 to n do write(ar[i], );
end.
n, m, x, y, i: int64;
ar: array[1..100000]of int64;
ms: array[1..100000]of int64;
begin
read(n, m);
for i := 1 to n do
begin
ar[i] := i;
ms[i] := i;
end;
for i := 1 to m do
begin
read(x, y);
swap(ms[x], ms[y]);
swap(ar[ms[x]], ar[ms[y]]);
end;
for i := 1 to n do write(ar[i], );
end.
97
Смежные вопросы:
