Cod sursa(job #2352055)

Utilizator Alex1802Fantana Alex Alex1802 Data 22 februarie 2019 22:06:09
Problema Pairs Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.54 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;
    f>>n;
    int m[n];
    f>>m[0];
    for(int i=1;i<n;++i)
    {
        f>>m[i];
        if(ok(m[0],m[i])==1)
            ct++;
    }
    for(int i=1;i<n-1;++i)
        for(int j=i+1;j<n;++j)
            if(ok(m[i],m[j])==1)
                ct++;
    g<<ct;
}