Cod sursa(job #133776)

Utilizator Anamaria20Cotirlea Anamaria Anamaria20 Data 9 februarie 2008 18:26:10
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <stdio.h>
FILE* f;
long int n;
long int p,q;
long int cat;
long int i,min,bec;
main()
{
	f=fopen ("fractii.in","r");
	fscanf (f,"%ld",&n);
	fclose (f);

	for (p=1;p<=n;p++)
		for (q=1;q<=n;q++)
		{

			min=(p>q?q:p);

			bec=1;
			for (i=2;i<=min;i++)
				if (q%i==0&&p%i==0)
				{
					bec=0;
					break;
				}


		   if (bec==1)
			 cat++;
		}

	f=fopen ("fractii.out","w");
	fprintf (f,"%ld",cat);
	fclose (f);
}