Cod sursa(job #154796)

Utilizator RoxanaCRoxana Cazacu RoxanaC Data 11 martie 2008 14:35:07
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<iostream.h>
#include<fstream.h>
ifstream fin("fractii.in");
ofstream fout("fractii.out");
unsigned long n,p,q,r;
int ok=1;
/*int divizor(unsigned long x, unsigned long y)
{
	while(y!=0 && x!=y)
		{
		r=x%y;
		x=y;
		y=r;
		}
	if(x==1) return 1;
	else return 0;
}*/
int main()
{
fin>>n;
unsigned long x,y;
for(p=1;p<n+1;p++)
	for(q=p+1;q<n+1;q++)
	{	
		x=p; y=q;
		while(y!=0 && x!=y)
		{
		r=x%y;
		x=y;
		y=r;
		}
	if(x==1) ok+=2;}
		//if(divizor(p,q)==1)
		//	ok+=2;
fout<<ok;
return 0;
}