Cod sursa(job #2428315)
Utilizator | 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;
}