Cod sursa(job #9039)

Utilizator hpetru_bzHlihor Petru hpetru_bz Data 26 ianuarie 2007 14:35:54
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<fstream.h>
int main()
   {
   ifstream fin("fractii.in");
   ofstream fout("fractii.out");
   int N,nrf,i,j,p,q;
   fin>>N;
   i=2;
   nrf=2*N;
   while(i<=N)
     {
     j=2;
     while(j<=N)
	{
	p=i;
	q=j;
	if(p==q)p=0;
	while(p!=0&&p!=q)
	   {
	   if(p>q)p=p-q;
	   else q=q-p;
	   }
	if(p==1)nrf=nrf+1;
	j=j+1;
	}
     i=i+1;
     }
   fout<<nrf<<"\n";
return 0;
   }