Cod sursa(job #122235)

Utilizator ConsstantinTabacu Raul Consstantin Data 11 ianuarie 2008 16:01:33
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#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;
if(n%2==0)
	k=k+(n/2-1)*2;
else
	k=k+(n/2)*2;
k=k+(n/3)*4-2;
for(i=4;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;
}