Cod sursa(job #111518)

Utilizator alien51Fatu Alin alien51 Data 30 noiembrie 2007 10:35:47
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include <stdio.h>
FILE *f,*g;
int i,j,m,x,r;
long n,a,b,v[100000],k;
int main()
{f=fopen("pairs.in","r");
g=fopen("pairs.out","w");
fscanf(f,"%ld",&n);
for (i=0;i<n;i++)
fscanf(f,"%ld",&v[i]);
for (i=0;i<n-1;i++)
for (j=i+1;j<n;j++)
{x=0;
if (v[i]>v[j])
  {a=v[i];
  b=v[j];
  while(b!=0)
  {r=a%b;
  a=b;
  b=r;}
  if (a!=1) x=1;}
if (v[i]<v[j])
   {a=v[j];
  b=v[i];
  while(b!=0)
  {r=a%b;
  a=b;
  b=r;}
  if (a!=1) x=1;}
if (v[i]%v[j]==0 || v[j]%v[i]==0) x=1;


if (x==0) m++;}
fprintf(g,"%d",m);
fcloseall();
return 0;

}