Cod sursa(job #348798)

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

void citire(long &n)
{fscanf(f,"%ld",&n);
}

int cmmdc(long a,long b)
{long r;
while(b!=0)
{r=a%b;
a=b;
b=r;
}
return a;
}

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