Cod sursa(job #3367349)

Utilizator deyucppAndrei Gorunescu deyucpp Data 7 octombrie 2026 10:23:45
Problema Pairs Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.57 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];
    }
    for(int i=0;i<n;i++)
    {
        for(int j=i+1;j<n;j++)
        {
            if(pie(m[i],m[j])==1)
                k++;
        }
    }
    fout<<k;
    return 0;
}