Cod sursa(job #334666)

Utilizator vrvpcppveigang radulescu vlad petru vrvpcpp Data 27 iulie 2009 16:18:10
Problema Fractii Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <stdio.h>
FILE *f,*g;
long x,i,n,a[1000000];
long long s;
int main(){
 f=fopen("fractii.in","r");
 g=fopen("fractii.out","w");
 fscanf(f,"%ld",&n);
 for (i=1;i<=n;i++)
 	a[i]=i-1;
 s=0;
 for (i=2;i<=n;i++){
  x=i*2;
  while (x<=n){
   a[x]=a[x]-a[i];
   x=x+i;
  }
  s+=a[i];
 }
 s=s*2+1;
 fprintf(g,"%lld",s);
 fclose(f);
 fclose(g);   
 return 0;   
}