Pagini recente » Istoria paginii runda/simulare-cartita-10/clasament | Cod sursa (job #1772053) | Monitorul de evaluare | Cod sursa (job #1298569) | Cod sursa (job #157054)
Cod sursa(job #157054)
#include<stdio.h>
#define M 100000
long v[M];
int main()
{long n,i,j,k,a,b,r;
FILE *f=fopen("pairs.in","r");
FILE *g=fopen("pairs.out","w");
fscanf(f,"%ld",&n);
for(i=1;i<=n;i++)
fscanf(f,"%ld",&v[i]);
k=0;
for(i=1;i<=n-1;i++)
if(v[i]==2) for(j=i+1;j<=n;j++)
if(v[j]%2==1) k++;
else {for(j=i+1;j<=n;j++)
if(v[j]!=2) {a=v[i];
b=v[j];
r=a%b;
while(r!=0)
{a=b;
b=r;
r=a%b;
}
if(b==1) k++;
}
}
fprintf(g,"%ld",k);
fclose(f);
fclose(g);
return 0;
}