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.

Download