Cod sursa(job #241623)

Utilizator adytzu2007Adrian Bacircea adytzu2007 Data 10 ianuarie 2009 15:33:49
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <stdio.h>
long n;
FILE *f=fopen("fractii.in","r");
FILE *g=fopen("fractii.out","w");
long euclid(long a, long b)
{
    if (a>b&&b!=0) euclid (b,a%b);
    else if (b==0) return a;
}

int main()
{
    long i,j,nr=0;
    fscanf(f,"%ld",&n);
    for (i=1;i<=n;i++)
    for (j=1;j<=n;j++)
    if (i>j&&euclid(i,j)==1) nr++;
    else if (i<j&&euclid(j,i)==1) nr++;
    fprintf(g,"%ld",nr);
    fclose(f);
    fclose(g);
    return 0;
}