Cod sursa(job #67040)
Utilizator | Data | 22 iunie 2007 12:54:52 | |
---|---|---|---|
Problema | Pascal | Scor | 30 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.51 kb |
#include<fstream.h>
long long a[1000000],b[1000000],N,M;
void pasca(int N){
for (long i=2;i<=N;i++) {
for (long j=1;j<i;j++){
b[j]=a[j-1]+a[j];
a[j-1]=b[j-1];
}
a[i-1]=b[i-1];
a[i]=1;
}
}
int numarare(){
long nr=0;
for (long i=0;i<N;i++)
if (a[i]%M==0)
nr++;
return nr;
}
int main(){
ifstream fin("pascal.in");
fin>>N>>M;
fin.close();
a[0]=1;a[1]=1;
b[0]=1;
pasca(N);
ofstream fout("pascal.out");
fout<<numarare()<<"\n";
fout.close();
return 0;
}