Cod sursa(job #2132128)

Utilizator tanyafTanya Foransbergher tanyaf Data 15 februarie 2018 14:43:18
Problema Pascal Scor 0
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[500000][500000],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;
}