Cod sursa(job #353782)

Utilizator cezyGrigore Cezar cezy Data 6 octombrie 2009 08:44:39
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include<fstream.h>
#include<math.h>
ifstream f("fractii.in");
ofstream g("fractii.out");
int prim(long q){
	long i;
	if(q<2) return 0;
	for(i=2;i<=sqrt(q);i++)
		if(q%i==0) return 0;
    return 1;
}
int det(long p,long q) {
	long i=2;
	while(p>1) {
		if(prim(i)==1) 
			if(p%i==0 ) 
			{p/=i; if(q%i==0) return 0; }
		i++;
	}
	return 1;
}				
int main(){
	long n,i,j,s=0;
	f>>n;
	s=n*n;
	for(i=2;i<=n;i++)
		for(j=1;j<=n;j++)
			if(det(i,j)==0) s--;
	g<<s;
	return 0;
}