Cod sursa(job #462526)

Utilizator arthuravAvramiea Arthur-Ervin arthurav Data 11 iunie 2010 13:05:05
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<stdio.h>
#include<math.h>
int euclid(int a,int b)
{while(a!=b){if (a>b)a=a-b;
                else b=b-a;
                }
 return a;
}
void main()
{int x,k,i,j;
FILE *f,*g;
f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
fscanf(f,"%i",&x);
k=0;
for(i=1;i<=x;i++)
{for(j=1;j<=x;j++)
{if(euclid(i,j)==1)k++;}}
fprintf(g,"%i",k);
fclose(f);
fclose(g);
}