Cod sursa(job #154538)

Utilizator petroMilut Petronela petro Data 11 martie 2008 11:52:16
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<stdio.h>
int main()
{int n,v[100],i,j,k,ok,a,b;

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

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

for(i=1;i<=n;i++)
 fscanf(f,"%d",&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=1+i;j<=n;j++)
	 {a=v[i];
	 b=v[j];
	 while(a!=b)
	  if(a>b) a-=b;
	  else b-=a;

	 if(a==1) k++;}
         }

   }

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

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