Cod sursa(job #67042)

Utilizator RobytzzaIonescu Robert Marius Robytzza Data 22 iunie 2007 12:58:06
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<fstream.h>
long long a[5000000],b[5000000],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;
}