Cod sursa(job #243901)

Utilizator KiraConstantin Cosmin Kira Data 14 ianuarie 2009 11:03:17
Problema Operatii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
 #include<iostream.h>
 #include<fstream.h>  
 int main()  
 {int n,M[1000],aux1,aux2,i,j,r,k=0;  
 fstream f("pairs.in",ios::in);  
 f>>n;  
 for(i=0;i<n;i++)  
 f>>M[i];  
 f.close();  
 for(i=0;i<n-1;i++)  
  for(j=i+1;j<n;j++)  
    if(M[i]!=M[j])  
     {  aux1=M[i];  
        aux2=M[j];  
       while(aux2!=0)  
         {  r=aux1%aux2;  
        aux1=aux2;  
        aux2=r; }  
          if(aux1==1)  
         k++;}  
 fstream g("pairs.out",ios::out);  
 g<<k;  
 g.close();  
 return 0;       }