Cod sursa(job #133798)

Utilizator Anamaria20Cotirlea Anamaria Anamaria20 Data 9 februarie 2008 19:33:30
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include <stdio.h>
FILE* f;
int n;
int p,q;
int cat;
int i,min;

int bec;

int main(void)
{
	f=fopen ("fractii.in","r");
	fscanf (f,"%d",&n);
	fclose (f);

	cat=0;
	for (p=1;p<=n;p++)
		for (q=1;q<=n;q++)
		{
			if (p!=q && !(p%2==0 && q%2==0))
			{
				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,"%d",cat+1);
		fclose (f);

		return 0;
}