Cod sursa(job #9134)

Utilizator DranaXumAlexandru Dumitru Paunoiu DranaXum Data 26 ianuarie 2007 20:33:29
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <fstream.h>
#include <math.h>

int p[17]={2,3,5,7,11,13,17,19,23,29,31,37,41,43,47};

int cmmdc(long int a,long int b)
{
long int r;
int x=1;
int i;
if((a%b==0) || (b%a==0)) return 0;

for(i=0;i<=14;i++)
if((a%p[i]==0) && (b%p[i]==0)) return 0;

while(x)
{
r=a%b;
a=b;
b=r;
if(r<2) x=0;
}
return r;
}



int main()
{
long int x,n,i,j;
ifstream fin("fractii.in");
ofstream fout("fractii.out");
fin>>n;
fin.close();
x=0;
for(i=1;i<=n;i++)
for(j=2;j<=i-1;j++)
x+=cmmdc(i,j);

x+=n;
x=2*x;
x-=1;
fout<<x;
fout.close();
return 0;
}