Cod sursa(job #8485)

Utilizator free2_do_rhymesGet a Life free2_do_rhymes Data 24 ianuarie 2007 21:04:15
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
#include <fstream.h>
int ired(int q, int p)
{
	long int i;
		for(i=q;i>=2;i--)
			if(p%i==0 && q%i==0)
			{
				i=q;
				return 0;
			}
	return 1;
}
int main()
{
	ifstream f("fractii.in");
	ofstream g("fractii.out");
	long int n,i,j,h=0;
	f>>n;
	for(i=2;i<=n;i++)
		for(j=2;j<=n;j++)
			if(ired(i,j))
				h++;
	g<<(h+n+n-1);
	return 0;
}