Cod sursa(job #3282706)

Utilizator stefanrotaruRotaru Stefan-Florin stefanrotaru Data 6 martie 2025 14:52:23
Problema Pairs Scor 20
Compilator cpp-64 Status done
Runda oji_go_11_12 Marime 0.56 kb
#include <fstream>

using namespace std;

ifstream f("pairs.in");
ofstream g("pairs.out");

int n, a[100005], ans;

inline int cmmdc(int a, int b)
{
    while (b) {
        int r = a % b;
        a = b;
        b = r;
    }

    return a;
}

int main()
{
    f >> n;

    for (int i = 1; i <= n; ++i) {
        f >> a[i];
    }

    for (int i = 1; i < n; ++i) {
        for (int j = i + 1; j <= n; ++j) {
            if (cmmdc(a[i], a[j]) == 1) {
                ans++;
            }
        }
    }

    g << ans;

    return 0;
}