Cod sursa(job #3290784)

Utilizator bagae123Burlacu Andrei bagae123 Data 31 martie 2025 21:05:07
Problema Pairs Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <fstream>
#include<unordered_map>
using namespace std;
ifstream fin("pairs.in");
ofstream fout("pairs.out");
unordered_map<int,int>frecv;
const int Nmax=1e6+5;
int dp[Nmax+5];

int main()
{
    int n,x;
    fin>>n;
    for(int i=1;i<=n;i++)
    {
        fin>>x;
        frecv[x]++;
    }
    for(int i=Nmax;i>=1;i--)
    {
        for(int j=i;j<=Nmax;j=j+i)
        {
            dp[i]+=frecv[j];
        }
        dp[i]=dp[i]*(dp[i]-1)/2;
        for(int j=2*i;j<=Nmax;j=j+i)
        {
            dp[i]-=dp[j];
        }

    }fout<<dp[1];
    return 0;
}