Cod sursa(job #259643)

Utilizator mrpopescuPopescu Mihai Tudor mrpopescu Data 15 februarie 2009 16:45:31
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.53 kb
#include <stdio.h>
#include <stdlib.h>
int ireductibil(long int a,long int b){
	long int r;
   if(b==1) return 1;
   if(a%b==0) return 0;
	while(b!=0){
   	r=a%b;
      a=b;
      b=r;
   }
   if(a==1) return 1;
    else return 0;
}
int main(){
	FILE *f=fopen("fractii.in","rt");
   long int n,i,j;
   int nr;
   fscanf(f,"%ld",&n);fclose(f);
   nr=n;
   for(i=2;i<=n;++i)
   	for(j=1;j<=n;++j)
      	if(ireductibil(i,j)) ++nr;
   f=fopen("fractii.out","wt");
   fprintf(f,"%d",nr);
   fclose(f);
   return 0;
}