Cod sursa(job #1048639)

Utilizator BlackMWStefan Laurentiu BlackMW Data 6 decembrie 2013 10:30:32
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <iostream>
#include <fstream>
using namespace std;
int n,v[100],i,j,k;
ifstream f("pairs.in");
ofstream g("pairs.out");
int cmmdc(int a,int b)
{while(a!=b)
if(a>b)a-=b;
else b-=a;
return a;
}
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(cmmdc(v[i],v[j])==1&&v[i]!=v[j])k++;
    g<<k;

    return 0;
}