Cod sursa(job #1844660)
Utilizator | Data | 10 ianuarie 2017 11:38:18 | |
---|---|---|---|
Problema | Pascal | Scor | 40 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
#include <cstdio>
using namespace std;
int v[5000001];
int main()
{
FILE *fin=fopen ("pascal.in","r");
FILE *fout=fopen ("pascal.out","w");
int r,d,sol,i,nr;
fscanf (fin,"%d%d",&r,&d);
sol=0;
for (i=1;i<=r;i++){
nr=i;
while (nr%d==0){
v[i]++;
nr/=d;
}
v[i]+=v[i-1];
}
for (i=1;i<=r;i++){
if (v[r]-v[r-i]-v[i]>0)
sol++;
}
fprintf (fout,"%d",sol);
return 0;
}