Cod sursa(job #443249)
Utilizator | Iulian Popescu iulishor | Data | 16 aprilie 2010 16:02:35 |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
#include<fstream>
using namespace std;
int n,i,s,r,d,nr;
int a[100];
int comb(int n, int k)
{
if(k==0||k==n)
return 1;
else
return comb(n-1,k)+comb(n-1,k-1);
}
int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");
f>>r>>d;
for(i=0;i<=r;i++)
a[i]=comb(r,i);
for(i=0;i<=r;i++)
if(a[i]%d==0)
nr++;
g<<nr;
return 0;
}