Cod sursa(job #135597)

Utilizator flavius_mesterMester Flavius flavius_mester Data 13 februarie 2008 23:17:02
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.63 kb
#include<fstream>
#include<cstdlib>
#include<cstdio> 
using namespace std;
int cmdc(long long a,long long b)   
{ long long r;   
  
while(a)   
    {r=b%a;b=a;a=r;   
    }             
  
return b;   
  
}   
  
int main(int argc,char *argv[])   
{   
  
long long v[100001];   
  
register long i,j,n,k=0;   
  
   
ifstream f("pairs.in");   
ofstream o("pairs.out");   
  
     
  
f>>n; 
  
for(i=0;i<n;i++)f>>v[i];;   
  
  
  
f.close();   
  
          
  
  
  
for(i=0;i<n-1;i++)   
for(j=i+1;j<n;j++)   
if(cmdc(v[i],v[j])==1)k++;   
o<<k<<"\n";   
o.close();  
  
  
  
return 0;}