Cod sursa(job #221727)

Utilizator dannyelFratean Daniel dannyel Data 17 noiembrie 2008 20:06:33
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
long divz(long i,long j)
{ int r;
 r=i%j;
 while(r!=0)
 {
	i=j;
	j=r;
	r=i%j;
 }
 return j;
}
 ifstream f("fractii.in");
 ofstream g("fractii.out");
int main()
{
 long n,cnt=0;
 f>>n;

 for(int i=1;i<=n;i++)
	for(int j=1;j<=n;j++)
		if(divz(i,j)==1)cnt++;
 g<<cnt;
 f.close();
 g.close();
 return 0;
}