Cod sursa(job #2158211)

Utilizator danny_3409Daianu Daniel Cristian danny_3409 Data 10 martie 2018 11:19:22
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include <iostream>
#include <fstream>
using namespace std;

ifstream f("pairs.in");
ofstream g("pairs.out");

int n,k,t[99];

int cmmdc(int x,int y)
{return (y)?cmmdc(y,x%y):x;}

int main()
{int i,j;
    f>>n;
        for(i=1;i<=n;i++)
            f>>t[i];

            for(i=1;i<=n;i++)
                for(j=i+1;j<=n;j++)
                        if(cmmdc(t[i],t[j])==1)
                            k++;
    g<<k;
return 0;
}