Cod sursa(job #154057)
| Utilizator | Data | 10 martie 2008 21:39:42 | |
|---|---|---|---|
| Problema | Pairs | Scor | 0 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.41 kb |
#include<iostream.h>
#include<fstream.h>
int cmmdc(int a,int b)
{
while(a!=b)
if(a>b)
a=a-b;
else
b=b-a;
if(b==1)
return 1;
else
return 0;
}
int main()
{int v[100],nr,n;
ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;
for(int i=1;i<=n;i++)
f>>v[i];
nr=0;
for(i=1;i<=n-1;i++)
for(int j=i;j<=n;j++)
if((v[i]!=v[j])&&(cmmdc(v[i],v[j])))
nr++;
g<<nr;
f.close();g.close();
return 0;
}