Cod sursa(job #27882)

Utilizator mariaciPopa Marius Ionut mariaci Data 7 martie 2007 11:19:13
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include<fstream.h>
#include<stdlib.h>
int k,N;
void citire()
{ ifstream f("fractii.in");
  f>>N;
  f.close();
}
int prim(int a,int b)
{ int d,l,ok=1;
  if(a>b) l=b;
  else l=a;
  for(d=2;d<=l;d++)
     if(a%d==0 && b%d==0) ok=0;
  if(ok==0) return 0;
  else return 1;
}
void prelucrare()
{ int i,j;
  for(i=1;i<=N;i++)
     for(j=1;j<=N;j++)
	if(prim(i,j)==1) k++;
  ofstream g("fractii.out");
  g<<k;
  g.close();
}
int main()
{ citire();
  prelucrare();
  return 0;
}