Cod sursa(job #144406)

Utilizator petroMilut Petronela petro Data 27 februarie 2008 16:16:02
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=0;

for(i=1;i<=n;i++)
 for(j=1;j<=n;j++)
  {a=i;
   b=j;
   r=a%b;

   while(r)
   {a=b;
    b=r;
    r=a%b;}

   if(b==1) k++;}

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

fclose(f);
fclose(g);

return 0;
}