Cod sursa(job #133802)

Utilizator Anamaria20Cotirlea Anamaria Anamaria20 Data 9 februarie 2008 19:43:48
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 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<p;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+=2;
		}
		f=fopen("fractii.out","w");
		fprintf(f,"%d",cat+1);
		fclose (f);

		return 0;
}