Pagini recente » Atasamentele paginii Clasament muntele_suferintei_2 | Atasamentele paginii lot2010mixt | Cod sursa (job #2008315) | Rating Ghetea Mihai (DaniMocanu) | Cod sursa (job #203568)
Cod sursa(job #203568)
#include <stdio.h>
bool ired(long a, long b)
{
long r;
if(a<b)
a=a+b, b=a-b, a=a-b;
do
{
r=a%b;
a=b;
b=r;
}
while(r);
if(a!=1)
return false;
return true;
}
long NrFractiiNr(long n)
{
int NrCurent=0, i;
for(i=1; i<=n; i++)
if(ired(i, n)) NrCurent+=2;
return NrCurent;
}
int main ()
{
FILE *in, *out;
in=fopen("fractii.in", "r");
out=fopen("fractii.out", "w");
long NrFractii=1, n, i;
fscanf(in, "%ld", &n);
for(i=2; i<=n; i++)
NrFractii+=NrFractiiNr(i);
fprintf(out, "%ld", NrFractii);
fclose(in);
fclose(out);
return 0;
}