Cod sursa(job #348790)

Utilizator lau08Laurentiu Capatina lau08 Data 16 septembrie 2009 22:11:56
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.31 kb
#include<stdio.h>
FILE *f=fopen("fractii.in","r");
FILE *g=fopen("fractii.out","w");
long n,x,y,a,b,r;
int k;

int main()
{fscanf(f,"%d",&n);
for(x=1;x<=n;x++)
for(y=1;y<=n;y++)
{if(x!=y||x==1)
{a=x;b=y;
while(b!=0)
{r=a%b;
a=b;
b=r;
}
if(a==1)k++;
}}
fprintf(g,"%d",k);
fcloseall();
return 0;
}