Cod sursa(job #3124597)
Utilizator | Data | 29 aprilie 2023 14:16:34 | |
---|---|---|---|
Problema | Pascal | Scor | 0 |
Compilator | cpp-64 | Status | done |
Runda | Arhiva de probleme | Marime | 0.52 kb |
#include <iostream>
#include <fstream>
using namespace std;
ifstream fin ("pascal.in");
ofstream fout ("pascal.out");
const int Nmax=5000000;
int r, d;
long long f[Nmax+1];
int main()
{
fin>>r>>d;
f[0]=f[1]=0;
for (int i=2; i<=r; i++){
int aux=i;
while (aux%d==0){
aux/=d;
f[i]++;
}
f[i]+=f[i-1];
}
int cnt;
for (int i=0; i<=r; i++){
if (f[r]-f[i]-f[r-i]>0)
cnt++;
}
fout<<cnt;
return 0;
}