Cod sursa(job #7728)
| Utilizator | Data | 22 ianuarie 2007 09:51:09 | |
|---|---|---|---|
| Problema | Triplete | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.4 kb |
const maxn=4100;
var t:Text;
Grad:array[0..maxn]of longint;
n,m,a,b,i:longint;
sol:int64;
begin
assign(t,'triplete.in');reset(T);readln(t,n,m);
for i:=1 to M do begin readln(t,a,b);inc(Grad[a]);inc(Grad[b]);end;close(T);
for i:=1 to N do sol:=sol+Grad[i]*(N-1-grad[i]);
sol:=n*int64(n-1)*(n-2) div 6-sol div 2;
assign(t,'triplete.out');rewrite(t);writeln(T,sol);close(t);
end.
