Cod sursa(job #7728)

Utilizator bigsarpeadrian bigsarpe 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.