Cod sursa(job #2798)

Utilizator xtephanFodor Stefan xtephan Data 19 decembrie 2006 05:47:54
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<stdio.h>
int cmmdc(int a, int b)
	{
	while(a!=b)
	{if(a>=b) a=a-b;
	else b=b-a;
	}
	return a;
	}
int main()
{int p, q, i, j, n, k=0;
FILE *f=fopen("fractii.in", "r");
FILE *g=fopen("fractii.out", "w");
fscanf(f, "%d", &n);
for(p=1; p<=n; p++)
	{
	for(q=1; q<=n; q++)
		{if(cmmdc(p,q)==1) k++;
		}
	}
fprintf(g, "%d", k);
fclose(f);
fclose(g);
return 0;}