CTNBULLS - Bulls and Cows
Tác giả: RR
Ngôn ngữ: Pascal
var
f:array[1..100111,0..1] of longint;
n,k,i:longint;
begin
read(n,k); k+=1;
f[1,0]:=1; f[1,1]:=1;
for i:=2 to k do
begin
f[i,0]:=1;
f[i,1]:=(f[i-1,1]+f[i-1,0]) mod 2111992;
end;
for i:=k+1 to n do
begin
f[i,0]:=(f[i-k,0]+f[i-k,1]) mod 2111992;
f[i,1]:=(f[i-1,0]+f[i-1,1]) mod 2111992;
end;
writeln((f[n,0]+f[n,1]) mod 2111992);
end.