Cod sursa(job #1819107)

Utilizator razvanfFericean Razvan Mihai razvanf Data 30 noiembrie 2016 10:41:26
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <fstream>

using namespace std;
int v[100];
int main()
{
    fstream f("pairs.in", ios::in), g("pairs.out", ios::out);
    int n,i,x,y,r,nr=0,a,b,j;
    f>>n;
    for(i=0;i<n;i++)
        f>>v[i];
    for(i=0;i<n;i++)
        for(j=i+1;j<n;j++)
    {
       x=v[i];
       y=v[j];
    while(x!=y)
      if(x>y)
        x=x-y;
        else
        y=y-x;
        if(x==1)
            nr++;
    }
     g<<nr;
    return 0;
}