Cod sursa(job #196558)
Utilizator | 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;
}