Cod sursa(job #74350)

Utilizator BrEacKRazvan Aurariu BrEacK Data 25 iulie 2007 05:10:53
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include <fstream.h>
int ver(int a, int b)
{
		if(!((a==0)||(b==0)||(a==1)||(b==1)))
		while((a!=b)&&(a!=1)&&(b!=1))
		{
		 if(a>b)
			 a-=b;
		 else
			 b-=a;
		}

	if((a==1)||(b==1)||(a==0)||(b==0))
		return 1;
	else
		if(a==b)
		return 0;
	else return 1;;
}
int main()
{
	unsigned long n=0,p=0,q=0,nrf=0;
	ifstream f("fractii.in");
	ofstream g("fractii.out");
	f>>n;
	for(p=1;p<n;p++)
		for(q=p+1;q<=n;q++)
		{
		if(p==1)
		   nrf++;
		   else
		 if(ver(p,q))
			nrf++;
		}
	g<<(nrf*2+1);
	f.close();
	g.close();
	return 0;
}