Pagini recente » Cod sursa (job #1253663) | Cod sursa (job #1600516) | Cod sursa (job #781433) | Cod sursa (job #2839434) | Cod sursa (job #7728)
Cod sursa(job #7728)
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.