Cod sursa(job #32350)

Utilizator swift90Ionut Bogdanescu swift90 Data 17 martie 2007 19:04:55
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.8 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);
	fclose(in);
	nr=n;
	for(p=2;p<=n;p++){
		if(p%2==0){
			for(q=1;q<=n;q=q+2){
				if(q==1)
					nr++;
				if(q!=1){
					p1=p;
					q1=q;
					while((q1>1)&&(p1>1)){
						if(q1>p1)
							q1=q1%p1;
						else
							p1=p1%q1;
					}
					if(p1==1)
						nr++;
					if(q1==1)
						nr++;
				}
			}
		}
		if(p%2==1){
			for(q=1;q<=n;q++){
				if(q==1)
					nr++;
				if(q!=1){
					p1=p;
					q1=q;
					while((q1>1)&&(p1>1)){
						if(q1>p1)
							q1=q1%p1;
						else
							p1=p1%q1;
					}
					if(p1==1)
						nr++;
					if(q1==1)
						nr++;
				}
			}
		}
	}
	fprintf(out,"%d\n",nr);
	fclose(out);
	return 0;
}