Cod sursa(job #229033)

Utilizator ooctavTuchila Octavian ooctav Data 8 decembrie 2008 23:45:14
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <stdio.h>
int main()
{
	int i,j,a,b,r,d=0,n;
	bool e[1000005];
	for(i=1;i<=1000004;i++)
	{
		e[i]=false;
	}
	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",&a);
		e[a]=true;
	}
	for(i=1;i<=1000004;i++)
	{
		if(e[i]==true)
		{
			for(j=i+1;j<=1000004;j++)
			{
				if(e[j]==true)
				{
					a=i;
					b=j;
					while(b)
					{
						r=a%b;
						a=b;
						b=r;
					}
					if(a==1)	d++;
				}
			}
		}
	}
	fprintf(f2,"%d",d);
	fclose(f1);
	fclose(f2);

	return 0;
}