Cod sursa(job #28053)

Utilizator ghiutaalexGhiuta Alex ghiutaalex Data 7 martie 2007 14:19:31
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<stdio.h>
int main()
{long N,i,j,r=0,k,x,y;
 FILE*f,*g;
 f=fopen("fractii.in","r");
 g=fopen("fractii.out","w");
 fscanf(f,"%ld",&N);
 for(j=1;j<=N;j++)
	for(i=1;i<=N;i++)
	    {x=j;
             y=i;
             k=x%y;
             while(k!=0){x=y;
                         y=k;
                         k=x%y;}
             if(y==1) r++;}
 fprintf(g,"%ld",r);
 fclose(f);
 fclose(g);
 return 0;
}