Cod sursa(job #192060)

Utilizator FedoraSulphurGrosan Flavia FedoraSulphur Data 30 mai 2008 16:11:42
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include<stdio.h>

long cmmdc(long a, long b)
{ if(a==b) return a;
  if(a>b)
	return cmmdc(a-b,b);
  else
	return cmmdc(a,b-a);
}

int main()
{
    FILE*f=fopen("fractii.in","r");
    FILE*g=fopen("fractii.out","w");
    long n;
    fscanf(f,"%ld",&n);
    long nr=1;
    for(long i=1;i<=n;i++)
        for(long j=1;j<=n;j++)
            if(i!=j && cmmdc(i,j)==1)  nr++;
    fprintf(g,"%d",nr);
    fclose(f);
    fclose(g);
    return 0;
}