Cod sursa(job #7192)

Utilizator sigridMaria Stanciu sigrid Data 21 ianuarie 2007 13:01:50
Problema Triplete Scor 30
Compilator cpp Status done
Runda preONI 2007, Runda 1, Clasa a 10-a Marime 0.55 kb
#pragma option -3 -r -Z -O2 -a
#include<fstream.h>
char (*a)[4097]=new char[4097][4097];
int main()
{ifstream f("triplete.in");
ofstream g("triplete.out");
unsigned long sum=0,n,m,i,j,x,y,k;
f>>n>>m;
for(i=1;i<=n;i++)
 for(j=1;j<=n;j++) a[i][j]='0';
for(i=1;i<=m;i++)
 {f>>x>>y;
  a[x][y]=a[y][x]='1';
 }
f.close();
for(i=1;i<=n;i++)
  {for(j=i+1;j<=n;j++)
     if(a[i][j]=='1')
       {k=i+1;
	while(k<j)
	 {while((a[k][j]=='0')&&(k<j)) k++;
	  if(k<j) if(a[k][i]=='1') sum++;
	  k++;
	 }
       }
  }
g<<sum<<'\n';g.close();
return 0;
}