Cod sursa(job #1684523)

Utilizator metrix007Lungu Ioan Adrian metrix007 Data 11 aprilie 2016 09:33:50
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include <iostream>
#include <fstream>
using namespace std;
#define RMAX 5000001
int r,d,l=0;
char c[2][RMAX];
int contor;

int main()
{
    ifstream in("pascal.in");
    ofstream out("pascal.out");
    in >> r >> d;
    c[1][1]=1%d;c[1][2] = 1%d;
	l = 0;
	for(int i=2;i<=r;i++)
	{
		for(int j=1;j<=i+1;j++)
		{
			c[l][j] = (c[l^1][j]%d + c[l^1][j-1]%d)%d;

		}
		l = l^1;
	}
	l=l^1;
	for(int i=1;i<=r+1;i++)
		if(c[l][i]==0) contor++;
	out <<contor;
    return 0;
}