Cod sursa(job #4666)

Utilizator kiaraFugaru Sabina kiara Data 6 ianuarie 2007 08:20:57
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<stdio.h>
int main(){
	int N,S,r,i,j,a,b;
	FILE*in=fopen("fractii.in","r");
	FILE*out=fopen("fractii.out","w");
	fscanf(in,"%d",&N);
	fclose(in);
	S=N;
	for(i=2;i<=N;i++){
		for(j=1;j<=N;j++){
			a=i;
			b=j;
			r=a%b;
			while(r){
				a=b;
				b=r;
				r=a%b;
			}
			if(b==1)
				S=S+1;
		}
	}
	fprintf(out,"%d",S);
	fclose(out);
	return 0;
}