Cod sursa(job #144509)

Utilizator petroMilut Petronela petro Data 27 februarie 2008 18:48:14
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<stdio.h>
int main()
{long n,i,j,k,a,b,r;

FILE *f=fopen("fractii.in","r");
FILE *g=fopen("fractii.out","w");

fscanf(f,"%ld",&n);

k=1;

for(i=1;i<=n-1;i++)
 for(j=i+1;j<=n;j++)
  {a=i;
   b=j;
   r=a%b;
   while(r)
   {a=b;
   b=r;
   r=a%b;}
   if(b==1) k=k+2;}

fprintf(g,"%ld",k);
fclose(f);
fclose(g);

return 0;
}