Cod sursa(job #196549)

Utilizator MciprianMMciprianM MciprianM Data 27 iunie 2008 08:45:57
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<fstream>
using namespace std;
int a[2][5000009];
int main(){
  int i,r,d,j;
  ifstream f("pascal.in");
  f>>r>>d;
  f.close();
  a[0][1]=1%d;
  a[1][1]=1%d;
  a[1][2]=1%d;
  r+=2;
   for(i=3;i<r;i++)
    for(j=1;j<=i;j++)
      a[((i-1)&1)][j]=(a[(i&1)][j]+a[(i&1)][j-1])%d;
  int s=0;
  for(j=1;j<r;j++)
    if(a[((r-2)&1)][j]==0)
      s++;
  ofstream g("pascal.out");
  g<<s<<'\n';
  g.close();
  return 0;
}