Cod sursa(job #1224730)
| Utilizator | Data | 31 august 2014 18:56:47 | |
|---|---|---|---|
| Problema | Kperm | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.52 kb |
#include <fstream>
using namespace std;
ifstream fin ("kperm.in");
ofstream fout ("kperm.out");
const int M = 5005, mod = 666013;
int f[M], n, k, sol = 1, x;
int main() {
f[0] = f[1] = 1;
for (int i = 2; i < M; ++i)
f[i] = 1LL * f[i-1] * i % mod;
fin >> n >> k;
x = n / k;
sol = f[(n % k) ? (n % k) : k];
for (int i = 1; i <= n % k; ++i)
sol = 1LL * sol * f[x+1] % mod;
for (int i = n % k + 1; i <= k; ++i)
sol = 1LL * sol * f[x] % mod;
fout << sol;
}
