Pagini recente » Cod sursa (job #887274) | Cod sursa (job #1360457) | Borderou de evaluare (job #624871) | Cod sursa (job #803394)
Cod sursa(job #803394)
#include<fstream>
#include<math.h>
using namespace std;
ifstream fin ("pairs.in");
ofstream fout("pairs.out");
int a[100000],n,i,j,nr,x,y;
void citire()
{
fin>>n;
for(i=1;i<=n;i++)fin>>a[i];
}
int rezolvare()
{
for(i=1;i<=n;i++)
for(j=i+1;j<=n;j++)
{
x=a[i];y=a[j];
while(x!=y)
{
if(x>y)x=x-y;
else y=y-x;
}
if(x==1)nr++;
}
return nr;
}
void afisare()
{
fout<<nr;
}
int main()
{
citire();
rezolvare();
afisare();
return 0;
}