Cod sursa(job #378993)

Utilizator alexandru92alexandru alexandru92 Data 30 decembrie 2009 11:16:12
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include <vector>
#include <fstream>


/*
 *
 */
using namespace std;
int main()
{int n, k, i, j, nr=0;
	ifstream in("pascal.in");
	in>>n>>k;
	vector<int> v(n), v2(n);
	v[0]=1; v[1]=1;
	for( i=2; i <= n; ++i )
	{v2[0]=1;
	    for( j=1; j < i; ++j )
		v2[j]=v[j]+v[j-1];
	    v2[j]=1;
            v=v2;
        }
        ofstream out("pascal.out");
        for( i=0; i < n; ++i )
           if( 0 == v[i]%k ) 
               ++nr;
        out<<nr;
}