Cod sursa(job #3266016)

Utilizator nistor_dora_valentinaNistor Dora Valentina nistor_dora_valentina Data 5 ianuarie 2025 12:32:25
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");
int n, a[100005], i, fr[1005], ans, j;
int main()
{
    fin>>n;
    for(i=1; i<=n; i++)
        fin>>a[i];
    ans=n*(n-1)/2;
    for(i=1; i<=n; i++)
    {
        int d=2;
        vector <int> divi;
        while(a[i]>1)
        {
            if(a[i]%d==0)
            {
              divi.push_back(d);
              while(a[i]%d==0)
                a[i]/=d;
            }
            d++;
            if(d*d>a[i] && a[i]>1)
                d=a[i];
        }
        for(auto j: divi)
        {
            ans-=fr[j];
            fr[j]++;
        }
    }
    fout<<ans;
    return 0;
}