Cod sursa(job #196554)

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