Cod sursa(job #206512)

Utilizator IrnukIrina Grosu Irnuk Data 7 septembrie 2008 13:09:41
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
/*fractii*/

#include<fstream.h>

long n;
char s[1000000];
unsigned long contor;

ifstream fin("fractii.in");
ofstream fout("fractii.out");

int verifica(long x,long y)
{
	long min,d;
	if(x%y==0 || y%x==0)
		return 0;

	if(x>y)
		min=y;
	else min=x;

	for(d=2;d<=min/2;d++)
		if(x%d==0 && y%d==0)
			return 0;
	return 1;
}

int main()
{
	long i,j;
	fin>>n;

	contor=n;
	for(i=2;i<=n;i++)
	{
		contor++;
		for(j=2;j<=n;j++)
			if(verifica(i,j)==1)
				contor++;
		
	}

	fout<<contor<<'\n';
	fout.close();
	return 0;
}