Cod sursa(job #591615)

Utilizator vlad.doruIon Vlad-Doru vlad.doru Data 24 mai 2011 21:36:11
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <fstream>

using namespace std;

ifstream in("pascal.in");
ofstream out("pascal.out");

int r,i,d;

int exp(int x,int y){
	int m=0;
	while(x%y==0){
		m++;
		x=x/y;
	}
	return m;
}

int main(){
	in>>r>>d;
	int i,T=0,rez=0,k,ok=0;
	if(r%2==0){
		ok=1;
		k=(r+2)/2;
	}
	else{
		k=(r+1)/2;
	}
	for(i=1;i<k;i++){
		T=T+exp(r-i+1,d)-exp(i,d);
		if(T!=0)
			rez++;
	}
	rez=2*rez;
	if(ok==1 && T!=0){
		rez--;
	}
	out<<rez;
	return 0;
}