Pagini recente » Borderou de evaluare (job #2266128) | Cod sursa (job #2373361) | Cod sursa (job #38678) | Borderou de evaluare (job #2868251) | Cod sursa (job #1819752)
#include <fstream>
using namespace std;
unsigned long m[1000000];
int main()
{
fstream f("pairs.in", ios::in), g("pairs.out", ios::out);
int i, nr=0, j, a, b, r;
unsigned long n;
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];
r=a%b;
while(r!=0)
{
a=b;
b=r;
r=a%b;
}
if(b==1)
nr++;
}
g<<nr;
return 0;
}