Cod sursa(job #6049)

Utilizator DjSefuWrong name DjSefu Data 16 ianuarie 2007 21:50:18
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include<stdio.h>
FILE *f=fopen("fractii.in","r"),
     *g=fopen("fractii.out","w");
long long n,i,j,k,p,q;
int main()
{ fscanf(f,"%lld",&n);
  k=n*2-1;
  for(i=2;i<=n;i++) for(j=i+1;j<=n;j++){ p=i;q=j;while(p!=q) if(p>q) p-=q;else q-=p;if(p==1) k+=2;}
  fclose(f);
  fprintf(g,"%lld",k);
  fclose(g);
  return 0;
}