Cod sursa(job #196551)

Utilizator MciprianMMciprianM MciprianM Data 27 iunie 2008 08:53:52
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
int a[5000009];
int main(){
  int 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))/i;
  for(i=0;i<r;i++)
    if(a[i]%d==0)
      ++s;
  ofstream g("pascal.out");
  g<<s<<'\n';
  g.close();
  return 0;
}