Cod sursa(job #53486)

Utilizator alex_aurelia_31Neamtu Alexandra alex_aurelia_31 Data 22 aprilie 2007 12:35:32
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<stdio.h>
#include<math.h>
FILE *f,*g;
unsigned long int n,nr,i,j;


unsigned long int divizor(unsigned long int a, unsigned long int b)
{
unsigned long int aux,r;
if(a<b)
{
aux=a;
a=b;
b=aux;
}
do
{
r=a%b;
a=b;
b=r;
}
while(r!=0);
return a;
}

int main()
{
unsigned long int d;
f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
fscanf(f,"%ld",&n);
nr=n;
for(i=2;i<=n;i++)
{
for(j=1;j<=n;j++)
{
d=divizor(i,j);
if(d==1)
nr++;
}
}
fprintf(g,"%ld",nr);
fcloseall();
return 0;
}