Cod sursa(job #109283)
Utilizator | Popescu Vlad Alexandru vlad2179 | Data | 25 noiembrie 2007 09:55:04 |
---|---|---|---|
Problema | Pairs | Scor | 0 |
Compilator | cpp | Status | done |
Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.46 kb |
#include <stdio.h>
FILE *f=fopen("pairs.in","r");
FILE *g=fopen("pairs.out","w");
long n,m[1000],k;
void citeste(){
fscanf(f,"%ld",&n);
for(int i=1;i<=n;i++) fscanf(f,"%ld",&m[i]);
}
int cmmdc(long a,long b){
long r;
do{
r=a%b;
a=b;
b=r;
}
while (b!=0);
if(a==1) return 1;
return 0;
}
int main(){
citeste();
for(int i=1;i<n;i++){
for(int j=i+1;j<=n;j++){
if(cmmdc(m[i],m[j])) k++;
}
}
fprintf(g,"%ld",k);
return 0;
}