Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ------------------------------------------------------------------------------------------------------------
- В области L находится n городов. Некоторые пары городов соединены проселочной дорогой с двусторонним движением. Начавшись в каком-то городе дорога не может заканчиваться в нем же. В этом году состояние дорог позволило отделение ГИБДД области L провести гонки под лозунгом "скажи НЕТ нарушениям скоростного режима". Было решено, что круговая трасса должна стоять из четырех дорог, но не может два раза проходить через один и тот же город. Организаторы уже приступили к составлению отчёта и для этого им требуется количество различных трасс.
- rally.in
- 4 6
- 1 2
- 2 3
- 3 4
- 4 1
- 1 3
- 2 4
- rally.out
- 3
- ------------------------------------------------------------------------------------------------------------
- type myset = set of longint;
- var n,m,i,x,y,res:longint;a:array[0..300,0..300] of boolean; b:set of myset;
- procedure dfs(st,i,l:longint;trip:set of longint);
- begin
- var j:longint;
- if l=4 then
- if (st=i) and not(trip in b) then begin res:=res+1; b:=b+[trip] end
- else
- exit;
- for j:=1 to n do if a[i][j] and not(j in trip) then dfs(st,j,l+1,trip+[j]);
- end;
- begin
- read(n,m);
- for i:=1 to m do
- begin
- read(x, y);
- a[x][y]:=true;
- a[y][x]:=true;
- end;
- {dfs(1,1,0,[]);}
- for i:=1 to n do dfs(i,i,0,[]);
- write(res);
- {write (res div 2)}
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement