Cod sursa(job #8516)

Utilizator vanila0406Ionescu Victor vanila0406 Data 24 ianuarie 2007 22:01:44
Problema Triplete Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.92 kb
program triplete;
var f,g:text;
        m,n:longint;
        a:array[1..5000,1..5000] of boolean;



procedure citire;
var i,x,y:longint;
begin
        assign(f,'triplete.in');
        reset(f);
        assign(g,'triplete.out');
        rewrite(g);
        fillchar(a,sizeof(a),false);
        readln(f,n,m);
        for i:=1 to m do
                begin
                        readln(f,x,y);
                        a[x,y]:=true;
                        a[y,x]:=true;
                end;
        close(f);
end;



procedure prel;
var i,j,k,nr:longint;
begin
        nr:=0;
        for i:=1 to n-2 do
                for j:=i+1 to n-1 do
                        for k:=j+1 to n do
                                if a[i,j]and a[j,k] and a[i,k] then
                                        inc(nr);
        writeln(g,nr);
        close(g);
end;



begin
        citire;
        prel;
end.