Cod sursa(job #1364921)

Utilizator daniqiuPopa Daniel daniqiu Data 27 februarie 2015 21:32:08
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include <fstream>
using namespace std;
ifstream f("pairs.in");
ofstream g("pairs.out");
int cmmdc(int a,int b)
{
    int r=a%b;
    while(r)
    {
        a=b;
        b=r;
        r=a%b;
    }
    return b;
}
int main()
{
    int n,s=0;
    f>>n;
    int *v=new int[n];
    int i,j;
    for(i=0;i<n;i++) f>>v[i];
    for(i=0;i<n-1;i++) for(j=i+1;j<n;j++) if(cmmdc(v[i],v[j])==1) s++;
    g<<s;
    f.close();
    g.close();
    delete v;
    return 0;
}