Cod sursa(job #259546)

Utilizator mrpopescuPopescu Mihai Tudor mrpopescu Data 15 februarie 2009 14:48:04
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.63 kb
#include <stdio.h>
#include <stdlib.h>
#define deschidere(cale,mod,f)\
	if((f=fopen(cale,mod))==NULL){\
   	printf("\nNu se poate deschide fisierul %s.\n");\
      exit(1);\
      }
int ireductibil(long int a,long int b){
	long int r;
	while(b!=0){
   	r=a%b;
      a=b;
      b=r;
   }
   if(a==1) return 1;
    else return 0;
}
int main(){
	FILE *f;
   long int n,i,j;
   int nr=0;
   deschidere("fractii.in","rt",f);
   fscanf(f,"%ld",&n);fclose(f);
   for(i=0;i<n;i++)
   	for(j=0;j<n;j++)
      	if(ireductibil(i,j)) ++nr;
   deschidere("fractii.out","wt",f);
   fprintf(f,"%d",nr);
   fclose(f);
   return 0;
}