Cod sursa(job #141246)

Utilizator corina23Ciobanu Corina corina23 Data 22 februarie 2008 22:02:57
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<fstream.h>   
#include<math.h>   
long n,s;
ifstream f("fractii.in");
ofstream g("fractii.out");
int prim(long a,long b)
{if(b%a==0) return 0;
 if(b%2==0 && a%2==0) return 0;
 while(a!=b)
	if(a>b) a-=b;
	else b-=a;
 if(a==1) return 1;
 else return 0;
}
int main()
{//int p;
 f>>n;
 s=2*n-1;
 for (long i=2;i<n;i++)
	for(long j=i+1;j<=n;j++)
		if (prim(i,j)) s+=2;
 g<<s;
 f.close();
 g.close();
 return 0;
}