Cod sursa(job #462529)

Utilizator arthuravAvramiea Arthur-Ervin arthurav Data 11 iunie 2010 13:35:39
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.39 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=2*x-1;
for(i=2;i<=x;i++)
{for(j=2;j<=x;j++)
{if(euclid(i,j)==1)k++;}}
fprintf(g,"%i",k);
fclose(f);
fclose(g);
}