Cod sursa(job #196558)

Utilizator MciprianMMciprianM MciprianM Data 27 iunie 2008 09:17:35
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<fstream>
using namespace std;
long long  a[5000009];
int main(){
  long long i,r,d,s=0,rest=0;
  ifstream f("pascal.in");
  f>>r>>d;
  f.close();
  a[0]=1;
  for(i=1;i<=r;i++){
     rest=(r-i+1)%i;
     a[i]=a[i-1]*((r-i+1)/i)+(a[i-1]/i)*rest;
  }
  for(i=0;i<=r;i++)
    if(a[i]%d==0)
      ++s;
  ofstream g("pascal.out");
  g<<s<<'\n';
  g.close();
  return 0;
}