Cod sursa(job #19794)

Utilizator oprea_florinoprea florin oprea_florin Data 19 februarie 2007 22:53:18
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
#include<stdio.h>
int main()
{
int p,q,n,c=0,a,b;
FILE *in=fopen("fractii.in","r");
FILE *out=fopen("fractii.out","w");
fscanf(in,"%d",&n);



for(q=1;q<=n;q++)
	for(p=1;p<=n;p++){
		a=p;
		b=q;
		while(a!=b){
			if(b>a) b=b-a;
			else a=a-b;
		}
		if(a==1) c++;
	}
fprintf(out,"%d",c);

fcloseall();
return 0;
}