Cod sursa(job #3282941)

Utilizator stefanrotaruRotaru Stefan-Florin stefanrotaru Data 7 martie 2025 16:43:30
Problema Pairs Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <fstream>

using namespace std;

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

int n, fr[1000005], dp[1000005], valMax, x;

int main()
{
    f >> n;

    for (int i = 1; i <= n; ++i) {
        f >> x;

        fr[x]++;
        valMax = max(valMax, x);
    }

    for (int i = valMax; i >= 1; --i) {
        for (int j = i; j <= valMax; j += i) {
            dp[i] += fr[j];
        }

        dp[i] = (dp[i] * (dp[i] - 1) / 2);

        for (int j = i * 2; j <= valMax; j += i) {
            dp[i] -= fr[j];
        }
    }

    g << dp[1];

    return 0;
}