Cod sursa(job #2352007)

Utilizator Alex1802Fantana Alex Alex1802 Data 22 februarie 2019 21:27:42
Problema Pairs Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.6 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream f("pairs.in");
ofstream g("pairs.out");
int ok(int a,int b)
{
    while(a!=b)
        if(a>b)
            a-=b;
        else
            b-=a;
    return a;
}
int main()
{
    int n,ct=0,m[100000];
    f>>n;
    f>>m[0];
    for(int i=1;i<n;i++)
    {
        f>>m[i];
        if(m[0]!=m[i])
            if(ok(m[0],m[i])==1)
                ct++;
    }
    for(int i=1;i<n-1;i++)
        for(int j=i;j<n;j++)
            if(m[i]!=m[j])
                if(ok(m[i],m[j])==1)
                    ct++;
    g<<ct;
}