Pagini recente » Borderou de evaluare (job #651811) | Borderou de evaluare (job #1388072) | Borderou de evaluare (job #269213) | Borderou de evaluare (job #1418717) | Cod sursa (job #1820175)
#include <fstream>
using namespace std;
unsigned long M[1000000];
int main()
{
fstream f("pairs.in",ios::in),g("pairs.out",ios::out);
unsigned int n,i,j,nr=0,a,b,c;
f>>n;
for(i=0;i<n;i++)
f>>M[i];
for(i=0;i<n;i++)
for(j=i+1;j<n;j++)
{
a=M[i];
b=M[j];
c=a%b;
while(c)
{
a=b;
b=c;
c=a%b;
}
if(b==1)
nr++;
}
g<<nr;
return 0;
}