Cod sursa(job #593613)

Utilizator vlad.doruIon Vlad-Doru vlad.doru 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;
}