Cod sursa(job #8481)

Utilizator free2_do_rhymesGet a Life free2_do_rhymes Data 24 ianuarie 2007 20:53:27
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#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=1;i<=n;i++)
		for(j=1;j<=n;j++)
			if(ired(i,j))
				h++;
	g<<h;
	return 0;
}