Cod sursa(job #109365)
| Utilizator | Data | 25 noiembrie 2007 10:30:23 | |
|---|---|---|---|
| Problema | Pairs | Scor | 0 |
| Compilator | cpp | Status | done |
| Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.4 kb |
#include <iostream.h>
#include <stdlib.h>
#include <fstream.h>
void main()
{ int r,cmmdc,s,a,b,n,i,j;
int v[100];
fstream f("c:\\pairs.in",ios::in);
fstream g("c:\\pairs.out",ios::out);
f>>n;
for(i=1;i<=n;i++)
f>>v[i];
s=0;
for(i=1;i<=n;i++)
for(j=1;j<=n;j++)
{if(v[i]!=v[j])
{
a=v[i];
b=v[j];
while(a!=b)
if(a>b)
a=a-b;
else
b=b-a;
cmmdc=a;
if(cmmdc==1)
s++;
}
}
g<<s/2;
}
