Cod sursa(job #149324)

Utilizator iepureAndreea iepure Data 5 martie 2008 16:28:38
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<stdio.h>
int main()
{int 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;
                                       r=a%b;
				       while (r!=0) {a=b;
						     b=r;
						     r=a%b;}
				       if (b==1) k++;}
fprintf (g, "%d", k);
fclose(f);
fclose(g);
return 0;
}