Cod sursa(job #248832)

Utilizator KiraConstantin Cosmin Kira Data 26 ianuarie 2009 21:43:20
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb

  #include <iostream.h>
  #include <fstream.h>
int main()
{ int i,j,m[100],a,b,k=0,r,n;
fstream f("pairs.in",ios::in);
     f>>n;
     for(i=1;i<n;i++)
     {   f>>m[1];
	for(j=i+1;j<=n;j++)
	{  f>>m[j];
	   a=m[i];
	   b=m[j];
	   while(b!=0)
	   {  r=a%b;
	       a=b;
	       b=r;  }
	   if(a==1)
	     k++;     }  }  
  fstream g("pairs.out",ios::out);
  g<<k;
  g.close();
  f.close();
  return 0;   }