Cod sursa(job #1367819)

Utilizator cojocariustefancojocariu cojocariustefan Data 2 martie 2015 09:57:20
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <iostream>
#include <fstream>

using namespace std;

ifstream f("pascal.in");
ofstream g("pascal.out");

int main()
{
    int n, d, i, j, l, s=1, k=0;

    f >> n >> d;

    for(j = 1; j <= (n-1)/2; j++)
    {
        s = 1;
        for(l = j+1; l <= n; l++)
            s = s * l;
        for(l = 1; l <= n-j; l++)
            s = s / l;
        if(s % d == 0)
            k = k + 2;
    }
    s = 1;
    if(n % 2 == 0)
        {
            for(l = n/2+1; l <= n; l++)
                s = s * l;
            for(l = 1; l <= n-n/2; l++)
                s = s / l;
        }
    if(s % d == 0)
        k++;

    g << k;

    return 0;
}