Cod sursa(job #110711)

Utilizator hazegirlCatalina Predoi hazegirl Data 27 noiembrie 2007 15:50:57
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
//pairs
#include<fstream.h>
int cmmdc(int  x, int y)
{while(x!=y)
	{if(x>y) if(x%y) x%=y;
			else x=y;
	 else if(y%x) y%=x;
		else y=x;
	}
return x;}

int main()
{long int n, m[100001],i,j,nr=0;

ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;
for(i=1;i<=n;i++)
	f>>m[i];
for(i=1;i<n;i++)
	for(j=i+1;j<=n;j++)
	    if(m[i]%m[j]!=0 && m[i]%m[j]!=0)
        if(m[i]%2==1 ||  m[j]%2==1)
		 if(cmmdc(m[i],m[j])==1) nr++;
g<<nr<<'\n';
f.close();
g.close();
return 0;
}