Cod sursa(job #121302)

Utilizator TociToxAnonim Anonim TociTox Data 8 ianuarie 2008 13:27:39
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<iostream.h>
#include<math.h>
#include<fstream.h>
 ifstream fin("fractii.in");
 ofstream fout("fractii.out");
long t,i,j,v[100],nrfrac;

long cmmdc(long a,long b)
{
 long r;
 do
 {
  r=a%b;
  a=b;
  b=r;
 }
 while(r);
 return a;
}

int main()
{
 fin>>t;
 for(i=1;i<=t;i++)
  v[i]=i;
 for(i=1;i<=t;i++)
  for(j=1;j<=t;j++)
   if(cmmdc(v[i],v[j])==1) nrfrac++;
 fout<<nrfrac<<endl;
return 0;
}