Cod sursa(job #561688)

Utilizator mihai.plesaPlesa Mihail Iulian mihai.plesa Data 21 martie 2011 09:47:58
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include <cstdio>
using namespace std;
int n,p,q,r,nr,a,b;
int main()
{FILE*f=fopen("fractii.in","r");
FILE*g=fopen("fractii.out","w");
fscanf(f,"%d",&n);
nr=0;
for(p=1; p<=n; p++)
	for(q=1; q<=n; q++){
		a=p;
		b=q;
		while(b!=0){
			r=a%b;
			a=b;
			b=r;
		}
		if(a==1) nr=nr+1;
	}
	fprintf(g,"%d",nr);
}