Cod sursa(job #128618)

Utilizator BrEacKRazvan Aurariu BrEacK Data 27 ianuarie 2008 14:57:21
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.61 kb
#include<fstream.h>
int cmmmdc(long a, long b)
{
  while(a!=b)
   if(a>b)
     a-=b;
     else b-=a;

     return (a*b);
}
main()
{
	struct nod
	 {
	  long info;
	  nod *adr;
	 } *p,*q,*u;

	int n=0,nr=0;
	int v[100];
	ifstream f("pairs.in");
	f>>n;
	p=new nod;
	f>>p->info;
	p->adr=u;
	u=p;
	u->adr=NULL;
	for(int i=1;i<n;i++)
	 {
	  q=new nod;
	  f>>q->info;
	  long x=q->info;
	  q->adr=NULL;
	  u->adr=q;
	  u=q;
	  q=p;
	  for(int j=0;j<i;j++,q=q->adr)
	   {
	    if(cmmmdc(x,q->info)==1) nr++;
	   }
	 }
	ofstream g("pairs.out");
	g<<nr;
	g.close();
	f.close();
	return 0;
}