Cod sursa(job #675184)

Utilizator chris_bleachCristina chris_bleach Data 7 februarie 2012 13:25:57
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<stdio.h>
FILE*fin;
FILE*fout;
int n,k,sw,p,q,r,x,y;
int main()
{
	fin=fopen("fractii.in","r");
	fout=fopen("fractii.out","w");
	fscanf(fin,"%d",&n);
	k=0;
	for(p=1;p<=n;p++)
		for(q=1;q<=n;q++)
		{
			sw=0;
			x=p;
			y=q;
			r=x%y;
			while(r!=0)
			{
				x=y;
				y=r;
				r=x%y;
			}
			if(y==1)
				sw=1;
			if(sw==1)
				k++;
		}
		fprintf(fout,"%d",k);
		fclose(fin);
		fclose(fout);
		return 0;
}