Cod sursa(job #223684)

Utilizator alien51Fatu Alin alien51 Data 29 noiembrie 2008 00:55:47
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 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-n+1;
for (i=2;i<=n;i++)
 for (j=i+1;j<=n;j++)
  if (i>j && i%j==0 || i<j && j%i==0 ||divcom(i,j)!=1) a-=2;

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