Cod sursa(job #4687)

Utilizator swift90Ionut Bogdanescu swift90 Data 6 ianuarie 2007 11:52:44
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<stdio.h>
int main(){
	FILE*in=fopen("fractii.in","r");
	FILE*out=fopen("fractii.out","w");
	int p,q,p1,q1,nr=0,n;
	fscanf(in,"%d",&n);
	for(p=1;p<=n;p++){
		for(q=1;q<=n;q++){
			if(q==1)
				nr++;
			p1=p;
			q1=q;
			if(q!=1){
				while(q1!=p1){
					if(q1>p1)
						q1=q1-p1;
					if(p1>q1)
						p1=p1-q1;
				}
				if(p1==1)
					nr++;
			}
		}
	}
	fclose(in);
	fprintf(out,"%d\n",nr);
	fclose(out);
	return 0;
}