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.

Download