Cod sursa(job #102755)

Utilizator manuelciosiciManuel R. Ciosici manuelciosici Data 14 noiembrie 2007 18:01:58
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include <fstream.h>

int cmmdc(long a, long b)
{  long r;
	while(b)
   {	r=a%b;
      a=b;
      b=r;
   }
   return a;
}

int main()
{	long n, p=1, q=1;
	unsigned int nr_fractii=0;
   ifstream f("fractii.in");
   ofstream f2("fractii.out");
   f>>n;
   for(q=1;q<=n;q++)
   	if(q%2==0)
     { 	for(p=1;p<=n; p+=2)
   			if(cmmdc(p,q)==1)
      			nr_fractii++;}
      else
      	{for(p=1;p<=n; p++)
   			if(cmmdc(p,q)==1)
      			nr_fractii++;}
   f2<<nr_fractii;
   return 0;
}