Cod sursa(job #593613)
Utilizator | Data | 3 iunie 2011 18:34:53 | |
---|---|---|---|
Problema | Pascal | Scor | 40 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
#include <fstream>
using namespace std;
ifstream in("pascal.in");
ofstream out("pascal.out");
long long r,i,d;
long long exp(long long x,long long y){
long long m=0;
while(x%y==0 && x>=1){
m++;
x=x/y;
}
return m;
}
int main(){
in>>r>>d;
long long i,T=0,rez=0,k,ok=0;
if(r%2==0){
ok=1;
}
k=r/2;
for(i=0;i<r;i++){
T=T+exp(r-i,d)-exp(i+1,d);
if(T!=0)
rez++;
}
/*rez=2*rez;
if(ok==1 && T!=0){
rez--;
}*/
out<<rez;
return 0;
}