Pagini recente » Statistici Raymond Gauwain (maisieee2622) | Statistici dudu pav (dudu) | Cod sursa (job #2109440) | Rating Popescu Vlad (LemonJuice28) | Cod sursa (job #2195764)
#include <fstream>
#include <iostream>
using namespace std;
ifstream in("pascal.in");
ofstream out("pascal.out");
short ap[3][50000000];
int legendre(int n, int k) {
int r = n/k, s = 0, exp = k;
while(r != 0) {
s += r;
exp *= k;
r = n/exp;
}
return s;
}
int main()
{
int r, d, s = 0;
in >> r >> d;
int ap = legendre(r, d);
for(int j = 0; j < r; j++)
if(ap - legendre(j, d) - legendre(r-j, d) > 0)
s++;
out << s;
return 0;
}