Cod sursa(job #357544)

Utilizator eu93Marian S eu93 Data 19 octombrie 2009 19:32:12
Problema Fractii Scor 10
Compilator cpp Status done
Runda CNRV #3 Marime 0.3 kb
Raporteaza aceasta sursa 
#include <fstream.h>
int main()
{ int n,i,j,r,k=0,a,b;
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
for (i=1;i<=n;i++)
	for (j=1;j<=n;j++){
		a=i; b=j;
		r=a%b;
		while  (r!=0) {
			a=b;
			b=r;
			r=a%b;
		}
		if (b==1) k++;
	}
g<<k;
f.close();
g.close();
return 0;
}