Cod sursa(job #109228)

Utilizator cipriancxFMI - gr143 Timofte Ciprian cipriancx Data 25 noiembrie 2007 09:21:51
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.36 kb
Raporteaza aceasta sursa 
#include<stdio.h>

int d,nr,j,n,v[100],i;

int main()
{


FILE *f=fopen("pairs.in","r"),*g=fopen("pairs.out","w");
fscanf(f,"%d",&n);
for(i=1; i<=n; i++)
fscanf(f,"%d",&v[i]);


for(i=1; i<=n-1; i++)
for(j=i+1; j<n; j++)
{
for(d=2; d<=v[i]; d++)
  if(v[i]%d==0 && v[j]%d==0)break;
  else nr++;

}
fprintf(g,"%d\n",nr);





return 0;
}