Cod sursa(job #1488432)

Utilizator CidanielCraciun Ioan Daniel Cidaniel Data 18 septembrie 2015 22:32:13
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.68 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream f ("pairs.in");
ofstream g ("pairs.out");
long n, i, v[100000], j, a, b, k, x, y, S;
int main()
{
    f>>n;
    for (i=0; i<n; i++)
        f>>v[i];
    for (i=0; i<n; i++)
        for (j=i+1; j<n; j++)
            {
                if (v[i]!=v[j])
                    {
                        b=v[i];
                        a=v[j];
                        while (b)
        {
          x = a % b;
          a = b;
          b = x;
        }
                        if (a==1)
                            k++;
                    }}

    g<<k;
    f.close();
    g.close();
    return 0;
}