Cod sursa(job #415545)

Utilizator lily3Moldovan Liliana lily3 Data 11 martie 2010 15:22:45
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<fstream>
#define max 1000000
using namespace std;

long n,i,p,q,j,a[max],nr=0;
int cmmdc(int a,int b)
{
	int r;
	r=a%b;
	while(r)
	{
		a=b;
		b=r;
		r=a%b;
	}
	return b;
}
int main()
{
	ifstream f("fractii.in");
	ofstream g("fractii.out");
	f>>n;
	for(i=1;i<=n;i++)
		a[i]=i;
	for(i=1;i<=n;i++)
	for(j=1;j<=n;j++)
		if(cmmdc(a[i],j)==1)
			nr++;
		g<<nr;
		return 0;
}