Cod sursa(job #7679)

Utilizator cyrusVasible daniel cyrus Data 21 ianuarie 2007 22:01:13
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include <stdio.h>
#include <fstream.h>
#include <math.h>
FILE *pf;
int nr;
int ireduc(long a,long b);
int  ireduc(long a,long b)
{long i;int t=1;int max;
max=(a>=b)?a:b;
for(i=2;i<=sqrt(max);i++)
if((b%i==0)&&(a%i==0)) return 0;

return t;
}
long  n;
main(void)
{pf=fopen("fractii.in","r");
long i,j;
fscanf(pf,"%ld",&n);
 nr=n;
for(i=2;i<n+1;i++)
for (j=1;j<n+1;j++)
if (i!=j) if(ireduc(i,j))  nr ++;

pf=fopen("fractii.out","w");
fprintf(pf,"%d",nr);
fclose(pf);
return 0;
}