Cod sursa(job #538842)
Utilizator | Data | 21 februarie 2011 22:46:35 | |
---|---|---|---|
Problema | Pairs | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
#include<fstream>
using namespace std;
int i,j,n,m,a[100001];
unsigned long nr=0;
int cmmdc(int a,int b)
{
int r;
r=a%b;
while(r)
{
a=b;
b=r;
r=a%b;
}
return b;
}
int main()
{
ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;
for(i=1;i<=n;i++)
{
f>>a[i];
for(j=1;j<i;j++)
if(cmmdc(a[i],a[j])==1)
nr++;
}
g<<nr;
return 0;
}