Nu aveti permisiuni pentru a descarca fisierul grader_test17.ok

Cod sursa(job #109466)

Utilizator andrei_Andrei Diaconu andrei_ Data 25 noiembrie 2007 11:16:05
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.62 kb
 #include<fstream.h>
  ifstream fi;
  ofstream fo;
 int cmmdc(long x,long y)
 { while(x!=y)
   {if(x>y)x=x-y;
    else y=y-x;
   }
  return x;
 }
 main()
 {int mimp=0,mp=0,nr=0,n,i,j,d,k,q;
 int p[32000],imp[32000];
 fi.open("pairs.in");
  fo.open("pairs.out");
  fi>>n;k=1;q=1;
  for(i=1;i<=n;i++)
   {fi>>d;
    if(d%2==0){p[q]=d;mp++;q++;}
    else {imp[k]=d;mimp++;k++;}

   }
   for(i=1;i<=mp;i++)
     for(j=1;j<=mimp;j++)
      if(cmmdc(p[i],imp[j])==1)nr++;

   for(i=1;i<=mimp;i++)
    for(j=i+1;j<=mimp;j++)
      if(cmmdc(imp[i],imp[j])==1)nr++;

   fo<<nr;
   fi.close();
   fo.close();
 }