Cod sursa(job #223662)

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

    }
  else
   {
    r=nr%x;
    nr=x;
    y=x;
    x=r;

   }
 }
 return y;
}

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 (divcom(i,j)!=1) a--;

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