Cod sursa(job #149331)

Utilizator iepureAndreea iepure Data 5 martie 2008 16:32:19
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<stdio.h>
int main()
{long n, i, j, a, b, k=0, r;
FILE *f=fopen ("fractii.in","r");
FILE *g=fopen ("fractii.out","w");
fscanf (f, "%d", &n);
for (i=1;i<=n;i++) for (j=1;j<=n;j++) {a=i;
				       b=j;
				       while (a!=b) if (a>b) a-=b;
						    else b-=a;
				       if (a==1) k++;}
fprintf (g, "%d", k);
fclose(f);
fclose(g);
return 0;
}