Cod sursa(job #11274)

Utilizator FlorianFlorian Marcu Florian Data 30 ianuarie 2007 23:45:59
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.31 kb
#include<fstream.h>
int main()
{long int n,i,a,b,j,k=0,r;
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
for (i=1; i<=n; i++)
		{k++;
		for (j=2; 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;  }