Cod sursa(job #109471)

Utilizator sigridMaria Stanciu sigrid Data 25 noiembrie 2007 11:16:50
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.8 kb
#include<fstream.h>
#define dim 1000//01
//int (*mat)[dim]=new int[dim][dim];
int v[dim];
int jum;
int prim(int x,int y)
{if(((x%2)==0)&&((y%2)==0)) return 0;
 if(((x%y)==0)||((y%x)==0)) return 0;
 if(((x-y)==1)||((y-x)==1)) return 0;
 do
  {jum=x%y;
   x=y;
   y=jum;
  }
 while(jum);
 if(x==1) return 0;
return 1;
}
int main()
{ifstream f("pairs.in");
 ofstream g("pairs.out");
 unsigned long n,i,j,k,cont;
 cont=0;
 f>>n;
/* for(i=1;i<=n;i++)
  for(j=1;j<=i;j++)
   mat[i][j]=0;
*/
 f>>v[1];
 for(i=2;i<=n;i++)
  {f>>v[i];
   for(j=1;j<i;j++)
    /*if(!mat[i][j])
     {if(prim(mat[i][i],mat[j][j]))
	{mat[i][j]=++cont;
	 for(k=1;k<=j;k++)
	  if(mat[j][k]) mat[i][k]=++cont;
	}
     }*/
   if(prim(v[i],v[j])) cont++;
  }
f.close();
 g<<cont<<'\n';
g.close();
return 0;
}