Cod sursa(job #711126)

Utilizator alexalghisiAlghisi Alessandro Paolo alexalghisi Data 11 martie 2012 13:23:58
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <cstdio>
#define DN 10005
using namespace std;

int div[DN];

void descomp(int x)
{
	int f=2;
	while(x!=1)
	{
		int p=0;
		while(x%f==0)
		{
			x/=f;
			p++;
		}
		if(p) div[f]++;
		f++;
	}
}

int main()
{
	int n;
	unsigned long long rez=0;
	freopen("pairs.in","r", stdin);
	freopen("pairs.out","w", stdout);
	scanf("%d",&n);
	rez=n*(n-1)/2;
	for(int i=1;i<=n;i++)
	{
		int x;
		scanf("%d",&x);
		descomp(x);
	}
	for(int i=1;i<=n;i++)
	{
		rez-=div[i]*(div[i]-1)/2;
	}
	printf("%d",rez);

	return 0;
}