Pagini recente » Atasamentele paginii Clasament becreative11 | Cod sursa (job #2023141) | Atasamentele paginii Clasament orange_morning | Atasamentele paginii Clasament oni2014_z1_ix | Cod sursa (job #1370036)
#include <iostream>
#include <fstream>
#define N 100004
using namespace std;
int v[N];
int cmmdc(int x,int y)
{
int z;
while(y)
{
z=x%y;
x=y;
y=z;
}
return x;
}
int main()
{
int p=0,i,n,j;
ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;
for(i=1;i<=n;i++)
f>>v[i];
for(i=1;i<n;i++)
for(j=i+1;j<=n;j++)
if(v[i]!=v[j] && cmmdc(v[i],v[j])==1)
p++;
g<<p;
}