Cod sursa(job #788474)

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

int prime(int a,int b)
{
    int 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;
}

int fractii(int n)
{
    int 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()
{
    int N;
    FILE *f=fopen("fractii.in","r");
    FILE *g=fopen("fractii.out","w");

    fscanf(f,"%d",&N);
    fprintf(g,"%d",fractii(N));

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