Cod sursa(job #1757131)

Utilizator cristicristi8160Cizmar Cristian cristicristi8160 Data 14 septembrie 2016 16:21:42
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include <iostream>
#include <fstream>

using namespace std;

ifstream in("pairs.in");
ofstream out("pairs.out");
int v[100001],i=1,j=1,m,p=0;

int pie(int a, int b){
    int c;
    for(c=2;c<=max(a,b);c++)if(a%c==0&&b%c==0)return 0;
    return 1;
}

int main()
{
    in >> m;
    for(i=1;i<=m;i++)in >> v[i];
    for(i=1;i<=m;i++){
        for(j=1;j<=m;j++){
            if(v[i]!=v[j] && pie(v[i],v[j])==1 && i!=j){
                p++;
            }
        }
    }
    out << p/2;
}