Cod sursa(job #357201)

Utilizator alexmpopescuPopescu Alexandru alexmpopescu Data 18 octombrie 2009 13:34:14
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <fstream>
using namespace std;
int fi,fo,n,p,q,fcount;

int prime (int,int);

int main () 
{
	fstream fi("fractii.in",ios::in);
	fi>>n;
	fi.close();
	
	for (p=1; p<=n; p++)
		for (q=1; q<=n; q++)
			if (prime(p,q)==0) fcount++;
	
	fstream fo("fractii.out",ios::out);
	fo<<fcount;
	fo.close();
	return 0;
}

int prime (int a,int b)
{
	if ((a%b)==0 && b!=1) return 1;
	else
	{
		int i,minim,gasit;
		gasit=0;
		if (a>b) minim=b;
		else minim=a;
		i=2;
		while (i<=minim && gasit==0) 
		{
			if ((a%i)==0 && (b%i)==0) gasit=1;
			i++;
		}
		return gasit;
	}
}