Cod sursa(job #223675)

Utilizator alien51Fatu Alin alien51 Data 29 noiembrie 2008 00:45:42
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include <stdio.h>
FILE *f,*g;
long n,a,i,j;
int divcom(int nr,int nr2)
{ int x,r;
if (nr<nr2) {x=nr2;nr2=nr;nr=x;}
 while (r!=0)
 {
    {
    r=nr2%nr;
    nr2=nr;
    nr=r;
    }
 }
 return nr2;
}

int main()
{
f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
fscanf(f,"%d",&n);
a=n*n;
for (i=2;i<=n;i++)
 for (j=2;j<=n;j++)
  if (i==j || divcom(i,j)!=1) a--;

fprintf(g,"%d ",a);
fcloseall();
return 0;
}