Cod sursa(job #26023)

Utilizator SabinCSabin Carpiuc SabinC Data 4 martie 2007 23:50:41
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<stdio.h>
int cmmdc(int a,int b)
{	int r,cmmdc;
	do{
   		if(a>b)
         	{r=a%b;
         	a=b;
         	b=r;
         	cmmdc=a;}
         else
            {r=b%a;
            b=a;
            a=r;
            cmmdc=b;}
   }while(a>0&&b>0&&r>0);
   return cmmdc;
}
int main()
{	int p,q,n,i;
	FILE*f,*g;
   i=0;
   f=fopen("fractii.in","r");
   fscanf(f,"%d",&n);
   fclose(f);
   for(q=1;q<=n;q++)
   	for(p=1;p<=q;p++)
      	if(cmmdc(q,p)==1)
         {p/q;
         i++;
         q/p;
         i++;
         }	i--;
   g=fopen("fractii.out","w");
   fprintf(g,"%d",i);
   fclose(g);
   return 0;
}