Cod sursa(job #2428315)

Utilizator AndreiStrAndrei Stroici AndreiStr Data 4 iunie 2019 18:17:52
Problema Pascal Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <bits/stdc++.h>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int64_t r,d,nr;
int64_t factorial(int64_t x)
{
    int64_t p=1;
    for(int i=1;i<=x;i++)
        p*=i;
    return p;
}

int main()
{
    f>>r>>d;
    for(int j=1;j<=r+1;j++)
    {
       if((r/factorial(j))%d==0)
            nr++;
    }
    g<<nr;
    return 0;
}