Cod sursa(job #272917)

Utilizator luca_iliesiuluca ilieisiu luca_iliesiu Data 7 martie 2009 22:34:34
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<stdio.h>

int prime(int a,int b)
{int aux;
	if(a<b) 
	{aux=a;
	 a=b;
	 b=aux;}
    if(a%b==0) return(b); 
	 else return(prime(a%b,b));	
}




int main()
{int n,i,j,nr=0,v[100000];
	freopen("f1.in","r",stdin);
	freopen("f1.out","w",stdout);
	scanf("%d",&n);
	for(i=1;i<=n;i++)
		scanf("%d",&v[i]);
	for(i=1;i<=n-1;i++)
	 for(j=i+1;j<=n;j++)
		if(prime(v[i],v[j])==1) nr++;
	 printf("%d",nr);
	 return 0;
}