Cod sursa(job #154753)

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