Cod sursa(job #117945)

Utilizator tamasgyGyorfi Tamas tamasgy Data 22 decembrie 2007 20:11:21
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <stdio.h>



main()
{
long int n,i,j,m=0,k,l;
FILE* w,*r;

r=fopen("fractii.in","r");
fscanf(r,"%ld",&n);
for (i=1;i<=n;i++)
{
    k=i;
    m += i;
    for (j=2;j<=i;j++)
    {
        l=k%j;
        if (l==0)
        {
            m -= k/j;
            while ((k%j)==0)
                k=k/j;
        }
    }
}
fclose(r);
w=fopen("fractii.out","w");
fprintf(w,"%ld",2*m-1);
fclose(w);
}