Cod sursa(job #196547)

Utilizator MciprianMMciprianM MciprianM Data 27 iunie 2008 08:39:17
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 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;
  a[1][1]=1;
  a[1][2]=1;
  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];
  int s=0;
  for(j=1;j<r;j++)
    if(a[((r-2)&1)][j]%d==0)
      s++;
  ofstream g("pascal.out");
  g<<s<<'\n';
  g.close();
  return 0;
}