Cod sursa(job #718264)

Utilizator harababurelPuscas Sergiu harababurel Data 20 martie 2012 17:37:02
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.74 kb
#include <iostream>
#include <fstream>
using namespace std;
long R, i, j, rez=0;
short d;

int put(long nr) {
	long i, k, putere=0;
	for(i=2; i<=nr; i++) {
		k=i;
		while(k%d==0) {
			putere++;
			k/=d;
		}
	}
	return putere;
}
		
	

int main() {
	ifstream f("pascal.in");
	ofstream g("pascal.out");
	
	f>>R>>d;
	
	// R!/((R-j)!*j!) = elementul j de pe linia R;
	
	long p1=put(R);
	long p2, p3;
		

		
	for(j=1; j<=int(R/2); j++) {  //iau jumatate din elementele de pe linia R
		p2=put(R-j);
		p3=put(j);
		
		if(p1 - p2 - p3 > 0) { rez++; }
	}
	
	
	rez*=2;
	
	if(R%2 ==0) {
		j=int(R/2)+1;
		if(p1 -put(R-j) - put(j) > 0) { rez--; }
	}
	
	
	g<<rez;
	
	f.close();
	g.close();
	return 0;
}