Cod sursa(job #357549)

Utilizator eu93Marian S eu93 Data 19 octombrie 2009 19:39:31
Problema Fractii Scor 10
Compilator cpp Status done
Runda CNRV #3 Marime 0.33 kb
Raporteaza aceasta sursa 
#include <fstream.h>
int main()
{ int n,i,j,r,k=1,a,b;
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
for (i=1;i<=n;i++)
	for (j=1;j<=n;j++){
		if (i!=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;
}