Cod sursa(job #1024505)

Utilizator corujandariusCorujan Darius corujandarius Data 8 noiembrie 2013 19:25:46
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include <iostream>
#include <fstream>

using namespace std;
int prim(int a,int b)
{
    int r;
    r=a%b;
    while(r)
    {
        a=b;
        b=r;
        r=a%b;
    }
    return b;
}

int main()
{
    int n,i,j,s=0,iq,ok,jq;
    ifstream fin("fractii.in");
    ofstream fout("fractii.out");
    fin>>n;
    for(i=1;i<=n;i++)
        for(j=1;j<=n;j++)
            {
                if(prim(i,j)==1)
                s++;
            }
    fout<<s;
    fin.close();
    fout.close();
    return 0;
}