Cod sursa(job #102696)

Utilizator manuelciosiciManuel R. Ciosici manuelciosici Data 14 noiembrie 2007 17:28:27
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 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++)
   	for(p=1;p<=n; p++)
   		if(cmmdc(p,q)==1)
      		nr_fractii++;
   f2<<nr_fractii;
   return 0;
}