Cod sursa(job #157084)

Utilizator petroMilut Petronela petro Data 12 martie 2008 20:55:58
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<stdio.h>
#define M 100000

long v[M];

int main()
{long n,i,j,k,a,b,r;

FILE *f=fopen("pairs.in","r");
FILE *g=fopen("pairs.out","w");

fscanf(f,"%ld",&n);

for(i=1;i<=n;i++)
 fscanf(f,"%ld",&v[i]);

k=0;

for(i=1;i<=n-1;i++)
 if(v[i]==2) {for(j=i+1;j<=n;j++)
	       if(v[j]%2==1) k++;}

 else {for(j=i+1;j<=n;j++)
	if(v[j]!=2) {a=v[i];
		     b=v[j];
		     r=a%b;

		     while(r!=0)
		      {a=b;
		       b=r;
		       r=a%b;
                       }

		     if(b==1) k++;

		     }
	}

fprintf(g,"%ld",k);
fprintf(g,"\n");

fclose(f);
fclose(g);
return 0;
}