Cod sursa(job #1197267)
| Utilizator | Data | 11 iunie 2014 15:53:12 | |
|---|---|---|---|
| Problema | Pascal | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.5 kb |
#include <cstdio>
using namespace std;
int a[5000001]={1},b[5000001],r,d;
void pascal()
{
int i,rand;
rand=2;
do
{
b[1]=b[rand+1]=1;
for(i=2;i<=rand;i++)
b[i]=a[i-1]+a[i];
rand++;
for(i=1;i<=rand;i++)
a[i]=b[i];
}
while(rand<=r);
}
int main()
{
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
scanf("%d%d",&r,&d);
pascal();
int num=0;
for(int i=1;i<=r;i++)
if(a[i]%d==0)
num++;
printf("%d",num);
return 0;
}
