Cod sursa(job #614859)

Utilizator MeDeiaAndreia C MeDeia Data 7 octombrie 2011 19:58:50
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<stdio.h>
long algoritm(long x, long y)
{long r;
if(x!=y)
while(y>0)
{r=x%y;
x=y;
y=r;
}
return x;
}
int main()
{long n, nr=0,i,j,a,b;
FILE* f;
FILE* g;
f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
fscanf(f,"%ld", &n);
for(i=1;i<=n;i++)
for(j=1;j<=n;j++)
{a=i;
b=j;
if(algoritm(a,b)==1)
nr++;
}
fprintf(g,"%ld\n", nr);
fclose(f);
fclose(g);
return 0;
}