Cod sursa(job #7709)

Utilizator cyrusVasible daniel cyrus Data 22 ianuarie 2007 01:49:15
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <stdio.h>
#include <fstream.h>
#include <math.h>
FILE *pf;
int nr;
int cmmdc(long x,long y);
int cmmdc(long x,long y)
{long r;
 do
 {
 r=x%y;
 x=y;
 y=r; }
 while(r);
 if (x==1) return 1;else return 0;
}
long  n;
main(void)
{pf=fopen("fractii.in","r");
long i,j;
fscanf(pf,"%ld",&n);
 nr=2*n-1;
for(i=2;i<n+1;i++)
for (j=2;j<n+1;j++)
if (cmmdc(i,j))nr++;
pf=fopen("fractii.out","w");
fprintf(pf,"%d",nr);
fclose(pf);
return 0;
}