Cod sursa(job #268185)

Utilizator venom4u31Manea Constantin venom4u31 Data 28 februarie 2009 21:46:42
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,n;


long int d (long int a,long int b)
{
long int r;
while (r!=0)
	{r=a%b;
	a=b;
	if (r!=0)
	b=r;
	}
return b;
}

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

f>>n;
for (i=1;i<=n;i++)
for(j=1;j<=n;j++)
if(d(i,j)==1) s++;
g<<s;
return 0;
}