Cod sursa(job #661269)

Utilizator harababurelPuscas Sergiu harababurel Data 14 ianuarie 2012 11:18:53
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.65 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=1; i<=nr; i++) {
		k=i;
		while(k%d==0) {
			putere++;
			k=int(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<R; j++) {  //iau jumatate din elementele de pe linia R
		p2=put(R-j);
		p3=put(j);
		
		if(p1 - p2 - p3 > 0) { rez++; }
	}
	
	
//	rez*=2;
	g<<rez;
	
	f.close();
	g.close();
	return 0;
}