Cod sursa(job #245179)

Utilizator ooctavTuchila Octavian ooctav Data 16 ianuarie 2009 23:51:59
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <stdio.h>
#include <stdlib.h>


int e[100005];
int comparare(const void * a,const void * b)
{
	return (*(int*)a - *(int*)b );
}

int main()
{
	int i,j,a,b,r,d=0,n;
	FILE *f1,*f2;
	f1=fopen("pairs.in","r");
	f2=fopen("pairs.out","w");
	fscanf(f1,"%d",&n);
	for(i=1;i<=n;i++)
		fscanf(f1,"%d",&e[i]);
	qsort(e,n+1,sizeof(int),comparare);
	for(i=1;i<=n;i++)
			for(j=i+1;j<=n;j++)
			{
					a=e[i];
					b=e[j];
					while(b)
					{
						r=a%b;
						a=b;
						b=r;
					}
					if(a==1)	d++;
			}
	fprintf(f2,"%d",d);
	fclose(f1);
	fclose(f2);

	return 0;
}