Cod sursa(job #1024874)
| Utilizator | Data | 9 noiembrie 2013 11:41:50 | |
|---|---|---|---|
| Problema | Pascal | Scor | 30 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.46 kb |
#include <iostream>
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
#define MAX 20000
int a[MAX][MAX];
int main()
{
int r,d,nr=0;
fin >> r >> d;
int i,j;
for(i=0;i<=r;i++)
a[i][0]=1;
for(i=1;i<=r;i++)
for(j=1;j<=i;j++)
a[i][j]=a[i-1][j]+a[i-1][j-1];
for(i=1;i<=r;i++)
if(a[r][i]%d==0)
nr++;
fout << nr << "\n";
return 0;
}
