Cod sursa(job #10812)

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


int cmmdc(long int a,long int b)
{
long int r;
int x=1;
if((a%b==0) || (b%a==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;
FILE *fin;
FILE *fout;
fin=fopen("fractii.in","r");
fout=fopen("fractii.out","w");
fscanf(fin,"%d",&n);
fclose(fin);
x=0;

for(i=2;i<=n;i++)
if(i%2==0)
for(j=3;j<=i-1;j+=2)
x+=cmmdc(i,j);   
else
for(j=2;j<=i-1;j++)
x+=cmmdc(i,j);   

x+=n;
x=2*x;
x-=1;

fprintf(fout,"%d",x);
fclose(fout);
return 0;
}