CTNBULLS - Bulls and Cows
Tác giả: ladpro98
Ngôn ngữ: Pascal
program ctnbulls;
uses math;
const fi='';
var f:array[0..100000] of longint;
n,k,i:longint;
s:int64;
inp:text;
begin
assign(inp,fi);
reset(inp);
readln(inp,n,k);
for i:=0 to k+1 do f[i]:=1;
for i:=k+2 to n do
f[i]:=(f[i-1]+f[i-k-1]) mod 2111992;
for i:=0 to n do
s:=(s+f[i]) mod 2111992;
write(s);
end.