Pagini recente » Profil M@2Te4i | Cod sursa (job #579984) | Rating UTCN Pocol Rogoz Oltean (UTCN_racheta) | Cod sursa (job #457891) | Cod sursa (job #60897)
Cod sursa(job #60897)
#include<stdio.h>
long int a[129][129],i,j,k,m,d,n,x[100001],y[100001],z[100001],sol;
int main()
{ FILE *f,*g;
f=fopen("puteri.in","r");
g=fopen("puteri.out","w");
for(i=0;i<=128;i++)
{ a[i][0]=i;a[0][i]=i;}
for(i=0;i<=128;i++)
for(j=i;j<=128;j++)
if(!a[i][j])
{ a[i][j]=1;
a[j][i]=1;
for(m=2;m*j<=128;m++)
{ a[m*i][m*j]=m;
a[m*j][m*i]=m;
}
}
fscanf(f,"%ld",&n);
fscanf(f,"%ld%ld%ld",&x[1],&y[1],&z[1]);
for(k=2;k<=n;k++)
{ fscanf(f,"%ld%ld%ld",&x[k],&y[k],&z[k]);
for(j=1;j<k;j++)
if(a[a[x[k]+x[j]][y[k]+y[j]]][z[k]+z[j]]>1)sol++;
}
fprintf(g,"%ld\n",sol);
fcloseall();
return 0;
}