Cod sursa(job #1754349)

Utilizator ionanghelinaIonut Anghelina ionanghelina Data 7 septembrie 2016 23:22:27
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include<bits/stdc++.h>
using namespace std;
int numar,r,d,l1[5000005],l2[5000005];
int main()
{
    freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
    scanf("%d%d",&r,&d);
    l1[1]=1;
    l1[2]=1;
    //l2[2]=1;
    for(int i=3;i<=(r+1);i++)
    {
        for(int j=1;j<=i;j++) l2[j]=l1[j]+l1[j-1];
        for(int j=1;j<=i;j++) l1[j]=l2[j];
    }
    for(int i=1;i<=(r);i++)
    {
        if (!(l2[i]%d)) numar++;
    }
    printf("%d\n",numar);
}