Cod sursa(job #162868)

Utilizator jupanu92Anonim jupanu92 Data 20 martie 2008 20:31:53
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<fstream>
using namespace std;

int main()
{int max,min,aux,nr=0,i,p,q,n,cm;
 ifstream fin("fractii.in");
 ofstream fout("fractii.out");
 fin>>n;
 for(p=1;p<=n;p++)
   for(q=1;q<=n;q++)
   {
    if(q>p) {max=q;min=p;}
       else {max=p;min=q;}
    if(max==min){if(max==1)nr++;}
       else if(min%max==0){ if(min==1)nr++;}
	   else{for(i=min;i>=1;i--)
		      if(min%i==0 &&max%i==0) {cm=i;break;}
		if(cm==1)nr++;

		}
    }

 fout<<nr;
 fin.close();           
 fout.close();
 return 0;
 }