Cod sursa(job #441681)

Utilizator myshuSpatariu Mihai-Constantin myshu Data 13 aprilie 2010 08:27:36
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int main()
{
	ifstream fcin("fractii.in");
	ofstream fcout("fractii.out");
	int n,s,s2,i,j,a,b,c,d,r;
	fcin>>n;
	s=2*n-1;
	for(i=2;i<=n;i++)
		{s2=0;
		 for(j=i;j<=n;j++)
			{a=i;b=j;c=a;d=b;
			 while(a%b!=0){r=a%b;a=b;b=r;}
			 while(c%d==0){c=c/d;r=d;}
			if(r==1)s2++;}
		 s=s+s2*2;}
	fcout<<s;
	return 0;
}