Cod sursa(job #109252)

Utilizator JacKtHeRIpErLobont Andrei JacKtHeRIpEr Data 25 noiembrie 2007 09:42:22
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.52 kb
#include <fstream.h>

int prime(unsigned int n, unsigned int p)
{
	while(n!=0&&p!=0)
   {
      if(n>=p)
         n-=p;
      else
      	p-=n;
   }
   if(n==0&&p==1)
   	return 1;
   return 0;
}

void main()
{
	unsigned int n, A[100000], i, j, c=0;
   ifstream in("pairs.in");
   in>>n;
   for(i=1; i<=n; i++)
   	in>>A[i];
   in.close();
   for(i=1; i<n; i++)
      for(j=i+1; j<=n; j++)
         if(prime(A[i],A[j]))
            c++;
   ofstream out("pairs.out");
   out<<c<<endl;
   out.close();
}