Cod sursa(job #1945902)

Utilizator VladAfrasineiAfrasinei VladAfrasinei Data 29 martie 2017 19:00:23
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int a[101],b[101];
int main()
{
    int i,nr=0,s,r,j,d;
fin>>r>>d;
a[0]=1;
a[1]=1;
for(i=2;i<=r;i++)
{
  b[0]=1;
  j=i;
  b[j]=1;
  for(j=1;j<=i;j++)
    b[j]=a[j-1]+a[j];
  b[++j]=1;
   for(j=0;j<=i;j++)
        a[j]=b[j];
}
for(i=0;i<=r;i++)
    if(a[i]%d==0)
        nr++;
fout<<nr;
    return 0;
}