Cod sursa(job #2195763)
| Utilizator | Data | 17 aprilie 2018 12:33:23 | |
|---|---|---|---|
| Problema | Pascal | Scor | 30 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.51 kb |
#include <fstream>
#include <iostream>
using namespace std;
ifstream in("pascal.in");
ofstream out("pascal.out");
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;
}
