Cod sursa(job #950202)

Utilizator alexblackFMI - Dumitrache Alexandru alexblack Data 16 mai 2013 09:15:32
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream in ("pascal.in");
ofstream out("pascal.out");
int const N=5000005;
int r,d,rez,c[2][N];
int main()
{
    in>>r>>d;   r++;
    c[1][0]=c[0][0]=1;
    for(int n=1;n<r;n++)
        for(int k=0;k<=n;k++)
            c[(n+1)%2][k+1]=c[n%2][k]+c[n%2][k+1];
    int m=r%2;
    for(int j=0;j<r;j++)
        if(c[m][j]%d==0)
            rez++;
    out<<rez<<"\n";
    return 0;
}