Cod sursa(job #1870418)
Utilizator | Data | 6 februarie 2017 17:13:18 | |
---|---|---|---|
Problema | Pascal | Scor | 40 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
#include <fstream>
using namespace std;
ifstream f ("pascal.in");
ofstream g ("pascal.out");
int v[5000002],r,d,sol,i,nr,ok,doi,trei;;
int main()
{
f>>r>>d;
for(i=1;i<=r;++i)
{
{
nr=i;
while(nr%d==0)
{
++v[i];
nr=nr/d;
}
v[i]+=v[i-1];
}
}
for(i=0;i<=r;++i)
{
if(v[r]-v[r-i]-v[i]>0) ++sol;
}
g<<sol;
return 0;
}