Cod sursa(job #28998)
Utilizator | Radulea Adrian adrianradulea | Data | 8 martie 2007 15:13:39 |
---|---|---|---|
Problema | Triplete | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.52 kb |
var f,g:text;
n,i,j,k:integer;
m:longint;
a:array[1..4096,1..4096] of 1..4096;
tripleta:longint;
procedure citire;
begin
read(f,n,m);
for i:=1 to n do begin
read(f,j,k);
a[k,j]:=1;
end;
end;
begin
assign(f,'triplete.in'); reset(f);
assign(g,'triplete.out'); rewrite(g);
citire;
tripleta:=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[j,i]=1) or (a[i,j]=1)) and ((a[k,j]=1) or (a[j,k]=1)) then tripleta:=tripleta+1;
write(g,tripleta);
close(g);
end.