Cod sursa(job #980046)

Utilizator andreiblaj17Andrei Blaj andreiblaj17 Data 3 august 2013 19:53:28
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include <iostream>
#include <fstream>

using namespace std;

ifstream in("pascal.in");
ofstream out("pascal.out");

unsigned long long r,k,x;
short d;

unsigned long long rec(long long x){
    if (x==1) return 1;
    else return x*rec(x-1);
}

int main()
{
    in >> r >> d;
    x=rec(r);
    for (unsigned long long i=1; i<=r-1; i++)
        if ((rec(i)/(x*rec(r-i)))%d==0) k++;
    out << k;
    return 0;
}