Cod sursa(job #154057)

Utilizator waterswordStefan Cristian watersword 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;
}