Cod sursa(job #109612)

Utilizator me_andyAvramescu Andrei me_andy Data 25 noiembrie 2007 12:05:55
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.43 kb
#include<fstream.h>

 ifstream f("pairs.in");
 ofstream g("pairs.out");
 long n,v[100001],i,j,s;
int ver(int a,int b)
{
 int c;
 while(b)
 {
  c=a%b;
  a=b;
  b=c;
 }
 if(a==1)
  return 0;
 return 1;
}
int main()
{
 f>>n;

 for(i=1;i<=n;i++)
    f>>v[i];
 for(i=1;i<n;i++)
 {
  for(j=i+1;j<=n;j++)
   if(v[i]%2!=0 || v[j]%2!=0)
   if(ver(v[i],v[j]))
     s++;
 }
 g<<s;
 f.close();
 g.close();
 return 0;
}