Cod sursa(job #29359)

Utilizator andreigrigAndrei Grigoras andreigrig Data 9 martie 2007 09:27:06
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
#include <fstream.h>
long cmmdc(long a, long b)
{
if(a==b)return a;
	else if(a>b) return cmmdc(a-b,b);
		else return cmmdc(a,b-a);
}

int main()
{long n,S=0,i,j;
 ifstream f("fractii.in");
 ofstream g("fractii.out");
 f>>n;
 for(i=1;i<=n;i++)
	for(j=1;j<=n;j++)
		if(cmmdc(i,j)==1) S++;
 g<<S;
 g.close();
 f.close();
 return 0;

}