Cod sursa(job #11680)
Utilizator | Spulber 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;
}