CTNBULLS - Bulls and Cows
Tác giả: ll931110
Ngôn ngữ: Pascal
{$MODE DELPHI}
program CTNBULLS;
const
maxn = 100000;
rem = 2111992;
var
f: array[0..maxn] of integer;
i,n,k: integer;
begin
readln(n, k);
f[0]:= 1;
for i:= 1 to n do
begin
f[i]:= f[i - 1];
if i > k then f[i]:= f[i] + f[i - k - 1] else inc(f[i]);
f[i]:= f[i] mod rem;
end;
writeln(f[n]);
end.