Cod sursa(job #593623)

Utilizator vlad.doruIon Vlad-Doru vlad.doru Data 3 iunie 2011 19:16:58
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.65 kb
#include <fstream>

using namespace std;

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

long long r,i;

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

int main(){
	long long i,T=0,T1=0,rez=0,k,ok=0,d,d1;
	in>>r>>d;
	if(d==4){
		d=2;
		for(i=0;i<r;i++){
			T=T+exp(r-i,d)-exp(i+1,d);
			if(T>=2)
				rez++;
		}
	}
	if(d==6){
		d=2;
		d1=3;
		for(i=0;i<r;i++){
			T=T+exp(r-i,d)-exp(i+1,d);
			T1=T1+exp(r-i,d1)-exp(i+1,d1);
			if(T>=1 && T1>=1)
				rez++;
		}
	}
	if(d!=4 && d!=6){
		for(i=0;i<r;i++){
			T=T+exp(r-i,d)-exp(i+1,d);
			if(T>=1)
				rez++;
		}
	}
	out<<rez;
	return 0;
}