Cod sursa(job #2261057)

Utilizator LorenaMariaHantig Lorena LorenaMaria Data 15 octombrie 2018 21:21:52
Problema Pairs Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.73 kb
#include <fstream>
using namespace std;
ifstream in("pairs.in");
ofstream out("pairs.out");
int n,m,k,s,maxi,p[1000005];
bool f[1000005],ok[1000005];
int main()
{ in>>n;
  for(int i=1;i<=n;i++)
    in>>m,f[m]=1,maxi=max(maxi,m);
  for(int i=2;i<=1000000;i++)
    if(!ok[i])
    { p[i]=1;
      ok[i]=1;
      for(int j=2*i;j<=1000000;j+=i)
      { ok[j]=1;
        p[j]++;
        if((j/i)%i==0)
           ok[j]=0;
      }
    }
  for(int i=2;i<=maxi;i++)
  { if(!ok[i])
       continue;
    k=0;
    for(int j=i;j<=maxi;j+=i)
      k+=f[j];
    if(p[i]%2==1)
       s+=(long long)k*(k-1)/2;
    else
       s-=(long long)k*(k-1)/2;
  }
  out<<(long long)n*(n-1)/2-s;
  in.close();
  out.close();
  return 0;
}