Cod sursa(job #2132126)
| Utilizator | Data | 15 februarie 2018 14:42:25 | |
|---|---|---|---|
| Problema | Pascal | Scor | 30 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.46 kb |
#include <fstream>
using namespace std;
ifstream f ("pascal.in");
ofstream g ("pascal.out");
int n,i,a[50000][5000],j,x,nr;
int main()
{
f>>n>>x;
for(i=0;i<=n;i++)
a[i][i]=1;
for(i=1;i<=n;i++)
a[i][1]=i;
for(i=0;i<=n;i++)
a[i][0]=1;
for(i=1;i<=n;i++)
for(j=1;j<=i;j++)
a[i][j]=a[i-1][j-1]+a[i-1][j];
for(j=1;j<=n;j++)
if(a[n][j]%x==0) nr++;
g<<nr<<'\n';
return 0;
}
