Cod sursa(job #221241)

Utilizator Ionutz_LalaLala Marius Ionut Ionutz_Lala Data 15 noiembrie 2008 09:42:40
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<stdio.h>
FILE *f=fopen("fractii.in","r"),*g=fopen("fractii.out","w");
long int n,fr,i,j;
long int cmmdc(long int a,long int b)
{
 long int r;
 do
 {
   r=a%b;
   a=b;
   b=r;
 }while(r);
 return a;
}
int main()
{
 fscanf(f,"%ld",&n);
 for(i=1;i<=n;i++)
   for(j=1;j<=n;j++)
     if(cmmdc(i,j)==1) fr++;
 fprintf(g,"%ld",fr);
}