Cod sursa(job #593615)

Utilizator vlad.doruIon Vlad-Doru vlad.doru Data 3 iunie 2011 19:03:45
Problema Pascal Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 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 m=0;
	while(x%d==0){
		m++;
		x=x/d;
	}
	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;
	if(d==4){
		d=2;
			for(i=0;i<r;i++){
			T=T+exp(r-i)-exp(i+1);
			if(T>=2)
				rez++;
			}
	}
	else{
		for(i=0;i<r;i++){
		T=T+exp(r-i)-exp(i+1);
		if(T>=1)
			rez++;
		}
	}
	/*rez=2*rez;
	if(ok==1 && T!=0){
		rez--;
	}*/
	out<<rez;
	return 0;
}