Cod sursa(job #1474328)

Utilizator KatalynCatalin Katalyn Data 21 august 2015 19:52:24
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<cstdio>
FILE *f,*g;

int euclid(int p, int q)
   {int aux;
     do{
            aux=p%q;
            p=q;
            q=aux;
            }while(aux);
     if (p==1) return 1;
      else return 0; }

int main(){
    int t=0, N;
    f=fopen("Fractii.in","r");
    g=fopen("Fractii.out","w");
    fscanf(f,"%d",&N);
    for(int i=1; i<=N; i++)
      for (int j=1; j<=N; j++)
        if (euclid(i,j)==1) t++;
    fprintf(g,"%d",t);
    fclose(f);
    fclose(g);
    
return 0;
}