Cod sursa(job #774115)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 3 august 2012 15:01:57
Problema Pascal Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.78 kb
#include <fstream>
using namespace std; 
int n,d,i,aux[6],x,sol;

int main(void){
     ifstream fin("pascal.in");
     ofstream fout("pascal.out");
      fin>>n>>d; 
       for(i = 1; i <= n; ++i) {
         x = n - i + 1;
          while(x % 2 == 0) {++aux[2]; x/= 2;}
          while(x % 3 == 0) {++aux[3]; x/= 3;}
          while(x % 5 == 0) {++aux[5]; x/= 5;}
         x = i;
          while(x % 2 == 0) {--aux[2]; x/= 2;}
          while(x % 3 == 0) {--aux[3]; x/= 3;}
          while(x % 5 == 0) {--aux[5]; x/= 5;}
        if(d == 2 && aux[2])++sol;
        else if(d == 3 && aux[3])++sol;
        else if(d == 4 && aux[2] > 1)++sol;
        else if(d == 5 && aux[5])++sol;
        else if(d == 6 && aux[2] && aux[3])++sol;
        }
     fout<<sol;
   return(0);
}