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