Cod sursa(job #281510)

Utilizator codyCodreanu Ionut cody Data 15 martie 2009 10:31:55
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<fstream.h>
long prime(long a,long b)
{
	while(a!=b)
	{
		if(a<b)	
			b-=a;
		if(a>b)
			a-=b;
	}
		if(a==1)
			return 1;
		else return 0;
}
int main()
{
	int k,i,j,s=0;
	ifstream f("fractii.in");
	f>>k;
	f.close();
	for(i=1;i<=k;i++)
		for(j=1;j<=k;j++)
			if(prime(i,j)==1)
				s++;
	ofstream g("fractii.out");
		g<<s;
		g.close();
	return 0;
}