Cod sursa(job #122236)

Utilizator ConsstantinTabacu Raul Consstantin Data 11 ianuarie 2008 16:03:15
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int n,i,j,a,b,r,k;
int main()
{
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
k=2*n-1;
for(i=2;i<=n;i++)
for(j=i+1;j<=n;j++)
	{a=i;b=j;r=0;
	if((a%b!=0)||(b%a!=0))
	while(b!=0)
		{r=a%b;
		a=b;b=r;}
	if(a==1)
		k+=2;
	}
g<<k;
f.close();
g.close();
return 0;
}