Cod sursa(job #268196)

Utilizator venom4u31Manea Constantin venom4u31 Data 28 februarie 2009 21:52:19
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include <fstream.h>
long int s=0,i,j,d,n;




int main ()
{ifstream f("fractii.in");
ofstream g("fractii.out");

f>>n;
for (i=1;i<=n;i++)
	for(j=1;j<=n;j++)
		{long int r=1,a=i,b=j;
		while (r!=0)
			{r=a%b;               
			a=b;
			if (r!=0)
			b=r;
			}
		d=b;
		if(d==1) s++;
		}
g<<s;
return 0;
}