Cod sursa(job #147940)

Utilizator marinMari n marin Data 3 martie 2008 19:00:52
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 1 kb
#include <stdio.h>
#include <stdlib.h>
#define DIM 5000001

int v[DIM];
int n,d,i,j,k,nr,dd;

int main(){
  FILE *f = fopen("pascal.in","r");
  fscanf(f,"%d %d",&n,&d);
  fclose(f);
  if ((d==2)||(d==3)||(d==5)){
    for (i=1;i<=n;i++) {
      j=i;
      k=0;
      while (j%d==0) {
	k++;
	j/=d;
      }
      v[i]=k+v[i-1];
    }
    for (i=0;i<=(n+1)/2-1;i++) {
      dd = v[n]-v[i]-v[n-i];
      if (dd>0) nr+=2;
    }
    if (n%2==0) {
      i=n/2;
      dd = v[n]-v[i]-v[n-i];
      if (dd>0) nr+=1;
    }
  } else if (d==4) {
    d=2;
    for (i=1;i<=n;i++) {
      j=i;
      k=0;
      while (j%d==0) {
	k++;
	j/=d;
      }
      v[i]=k+v[i-1];
      if (v[i]%2==1) v[i]--;
    }

    for (i=0;i<=(n+1)/2-1;i++) {
      dd = v[n]-v[i]-v[n-i];
      if (dd>0) nr+=2;
    }
    if (n%2==0) {
      i=n/2;
      dd = v[n]-v[i]-v[n-i];
      if (dd>0) nr+=1;
    }



  }
  FILE *g = fopen("pascal.out","w");
  fprintf(g,"%d",nr);
  fclose(g);
  return 0;
}