Cod sursa(job #133771)

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

	cat=0;
	for (p=1;p<=n;p++)
	{
		for (q=1;q<=n;q++)
		{
			if (q>p)
				for (i=p;i>=1;i--)
				{
					if (q%i==0&&p%i==0)
					{
						break;
					}
				}
			else
				for (i=q;i>=1;i--)
				{
					if (q%i==0&&p%i==0)
					{
						break;
					}
				}

		   if (i==1)
			 cat++;

		}
	}

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