Cod sursa(job #113446)

Utilizator vali_miValy Mihai vali_mi Data 10 decembrie 2007 11:44:40
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include<stdio.h>
#include<math.h>
FILE *f1,*f2;
long int cmmdc(long int a, long int b)
{long int c;
if(a*b==0)
c=a+b;
else{
while (a!=b)
if(a>b)a=a-b; else b=b-a;
c=a;}
return c;}
int main()
{long int a[200],n,i,j,np;
f1=fopen("pairs.in","r");
fscanf(f1,"%li\n",&n);
for(i=0;i<n;i++)
fscanf(f1,"%li\n",&a[i]);
fclose(f1);
np=0;
for(i=0;i<n-1;i++)
for(j=i+1;j<n;j++)
if(cmmdc(a[i],a[j])==1)np++;
f2=fopen("pairs.out","w");
fprintf(f2,"%li",np);
fclose(f2);
return 0;
}