Cod sursa(job #2100021)

Utilizator RaresLiscanLiscan Rares RaresLiscan Data 5 ianuarie 2018 00:10:07
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.88 kb
#include <fstream>
#include <cmath>
using namespace std;
bool prim[1000005];
int c[1000005];
int main()
{
    ifstream fin ("fractii.in");
    ofstream fout ("fractii.out");
    int n;
    fin>>n;
    int i,k=0,nr=n+n-1,q,j;
    long long d;
    bool ok=1;
    for (i=2;i<=sqrt(1000000);i++) {
        if (prim[i]==0) {
            for (d=i*i;d<=1000000;d+=i) {
                prim[j]=1;
            }
            c[k]=i;
            k++;
        }
    }
    for (i=2;i<=n;i++) {
        for (j=2;j<=n;j++) {
            ok=1;
            if (i!=j) {
            for (q=0;c[q]<=min(i,j)&&ok==1;q++) {
                if (i%c[q]==0&&j%c[q]==0) {
                   ok=0;
                }
            }
            if (ok==1) {
                nr++;
            }
        }
        }
    }
    fout<<nr;
    fin.close();
    fout.close();
    return 0;
}