Cod sursa(job #11680)

Utilizator BlackElfSpulber Iosif BlackElf Data 1 februarie 2007 11:15:54
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include <fstream.h>

ifstream in ("fractii.in");
ofstream out ("fractii.out");

int prime (long a, long b)
{
int min,i;
if (a>b)
 min=b;
else
 min=a;

if (a==0 || b==0)
 return 1;

if (a==b)
 return 0;

if (b==1)
 return 1;

for (i=2;i<=min;i++)
 {
 if (a%i==0 && b%i==0)
  return 0;
 }
return 1;
}

int main ()
{
long N;
register long i,j=1,k=0;

in>>N;

for (i=1;i<=N;i++)
 {
 for (j=2;j<=N;j++)
  if (prime(i,j))
   k++;
   
 }
out<<k;

return 0;
}