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.

Download