Cod sursa(job #386233)

Utilizator horiama1Mania Horia horiama1 Data 24 ianuarie 2010 13:25:54
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include<stdio.h>

int n,i,x,j,c,k,l,max=-1,r=0,v[100000],p[100000];
int main()
{
	freopen("pairs.in","r",stdin);
	freopen("pairs.out","w",stdout);
	scanf("%d",&n);
	for(i=0;i<n;i++)
		scanf("%d",&v[i]);
	for(i = 0; i<n;i++)
	{
		l=0;
		for(j=2;j<= v[i]; j++)
		{
			c=0;
			for(k=2;k*k<=j;k++)
				if(j%k == 0)
				{
					c = 1;
					break;
				}
			if(c==0 && v[i]%j == 0)
			{
				p[l]=j;
				l ++;
			}
		}
		for(k=i+1; k<n;k++)
		{
			c=0;
			for(j=0;j<l;j++)
				if(v[k]%p[j] ==0)
					c = 1;
			if(c==0)
				r++;
		}

	}

	printf("%d", r);
	return 0;
}