Cod sursa(job #3367357)

Utilizator deyucppAndrei Gorunescu deyucpp Data 7 octombrie 2026 10:35:20
Problema Pairs Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.72 kb
#include <fstream>
#include <vector>
using namespace std;
ifstream fin ("pairs.in");
ofstream fout ("pairs.out");
bool pie(int a, int b)
{
    while (b!=0)
    {
        int r=a%b;
        a=b;
        b=r;
    }
    if(a==1)
    return 1;
    return 0;
}
int main()
{
    int n,k=0;
    fin>>n;
    vector <int> m(n);
    for(int i=0;i<n;i++)
    {
        fin>>m[i];
    }
    fin.close();
    for(int i=0;i<n;i++)
    {
        for(int j=i+1;j<n;j++)
        {
            if(m[i]>m[j])
                if(pie(m[i],m[j])==1)
                    k++;
            else
                if(pie(m[j],m[i])==1)
                    k++;
        }
    }
    fout<<k;
    fout.close();
    return 0;
}