Cod sursa(job #788476)

Utilizator legendary28Cornescu Mihail legendary28 Data 15 septembrie 2012 04:27:01
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<stdio.h>
#define SWAP(a,b) long t;t=a;a=b;b=t;

long prime(long a,long b)
{
    long r;
    if(a<b) {SWAP(a,b);}
    r=a%b;
    while(r)
    {
        a=b;
        b=r;
        r=a%b;
    }
    if(b==1) return 1;
    else return 0;
}

long fractii(long n)
{
    long i,j, k=0;
    for(i=1;i<=n;i++)
        for(j=1;j<=n;j++)
            if(prime(i,j)) k++;
    return k;
}

int main()
{
    long N;
    FILE *f=fopen("fractii.in","r");
    FILE *g=fopen("fractii.out","w");

    fscanf(f,"%d",&N);
    if(N>=1 && N<=1000000)
    fprintf(g,"%ld",fractii(N));

    fclose(f);
    fclose(g);
    return 0;
}