Cod sursa(job #1340131)

Utilizator WongravenWongraven Wongraven Data 11 februarie 2015 15:57:21
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<stdio.h>
#include<stdlib.h>
#include<string.h>




int main()
{

long r;
int N,j,n,nr,i,a[2000010];
	
FILE * fp;
FILE * fp2;
fp = fopen("fractii.in","r+");
fp2 = fopen("fractii.out","w+");
    fscanf(fp,"%d",&N);
    for (i=2;i<=N;i++)
        a[i] = i;
    for (i=2;i<=N;i++)
        if(a[i]==i)
        {
            for(j= i;j<=N;j+=i)
                a[j]=a[j]/i*(i-1);
        }
    for (i=1;i<=N;i++)
        r+=a[i];
    r=r*2;
    r+=1;
    fprintf(fp2,"%lo",r);
    fclose(fp);
    fclose(fp2);
    return 0;
}