Cod sursa(job #2839941)

Utilizator IonutB56Ionut Birescu IonutB56 Data 26 ianuarie 2022 19:25:20
Problema Pairs Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<iostream>
#include<fstream>
using namespace std;
ifstream f("pairs.in");
ofstream g("pairs.out");
int prim(int n, int m)
{
    while (n != m)
        if (n > m)
            n = n - m;
        else
            m = m - n;
    return n;
}
int main()
{
    int n;
    f >> n;
    int a[n];
    for (int i = 0; i < n; i++)
        f >> a[i];
    int c=0;
    for (int i = 0; i < n-1; i++)
    {
        for (int j = i+1; j < n; j++)
            if (a[i] != a[j] && prim(a[i], a[j]) == 1)
                c++;
    }
    g<<c;
}