Cod sursa(job #508191)

Utilizator stanescumalinStanescu Malin Octavian stanescumalin Data 7 decembrie 2010 19:22:32
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include <iostream.h>
#include <fstream.h>
//#include <string.h>
#include <math.h>



int main(int argc, char* argv[])
{
	long i, j, cnt=0, d, k;
	float f;
	ifstream fin("pascal.in");
	fin>>i;
	fin>>d;
	for(j=0; j<=i; j++){
		f = 1;
		for(k = j; k<=i; k++){
			f = f * k / (k-j);
		}

		long k = f;
		if(k%d == 0) cnt++;
	}
	ofstream fout("pascal.out");
	fout<<cnt;
	return 0;
}