Cod sursa(job #1733989)

Utilizator Gigel-FroneGigel Fronel Gigel-Frone Data 26 iulie 2016 12:00:17
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.7 kb
#include <cstdio>

using namespace std;

int main()
{
    freopen("pascal.in", "r", stdin);
    freopen("pascal.out", "w", stdout);

    int n, p;
    scanf("%d%d", &n, &p);

    if(n==0 || n==1)
    {
        printf("%d", 0);
    }
    else
    {
        int *a;
        a=new int [n+1];
        int *b;
        b=new int [n+1];

        a[1]=1; a[2]=1;
        for(int i=2; i<=n; i++)
        {
            b[1]=1;
            for(int j=2; j<=i; j++)
                b[j]=a[j-1]+a[j];
            b[i+1]=1;
            for(int r=1; r<=i+1; r++) a[r]=b[r];
        }
        int k=0;
        for(int i=2; i<=n; i++)
            if(a[i]%p==0) k++;

        printf("%d", k);
    }
}