Cod sursa(job #90630)

Utilizator barbu_alexxaBarbu Alexandra barbu_alexxa Data 9 octombrie 2007 21:47:34
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include<stdio.h>
#include<math.h>
int main()
{long n,i,j,a,rest,b;
unsigned long fractii;
freopen("fractii.in","r",stdin);
scanf("%ld", &n);
fclose(stdin);

 fractii=n;
  for(i=2;i<=n;i++)
   { for(j=2;j<=sqrt(i);j++)
	 if(i%j==0)
	   break;
    if(j>sqrt(i))
	 fractii=fractii+n-n/i;
    else
     for(j=1;j<=n;j++)
       {b=j;
	a=i;
	while(b)
	 {rest=a%b;
	  a=b;
	  b=rest;
	 }
	if(a==1)
	 fractii++;
       }
    }

freopen("fractii.out","w",stdout);
printf("%lu", fractii);
fclose(stdout);
return 0;
}