@所有管理员 您们难道没有发现吗？

此题目：P1037 产生数

严重抄袭！！！

可见《Free Pascal语言与基础算法》

可见此书：第345页【上机练习】中的第3个例题（产生数（PRODUCE.pas）

此乃题库答案标准代码，诸位管理员可查看（附带文件名），CCF_NOI此人纯属抄袭！！！，请管理员核实！！！

标准代码同下：

var
  n,k:longint;
  pd:array[0..9,0..9] of boolean;                        //产生数规则
  pp:array[0..10000] of boolean;                         //存放产生数的队列
  i,j:longint;
  dl:array[1..100000,1..4] of longint;                   //产生数4位存放的队列
  t,w,c:longint;
begin
  assign(input,'produce.in');  reset(input);
  assign(output,'produce.out');rewrite(output);
  readln(n,k);
  fillchar(pp,sizeof(pp),true);
  pp[n]:=false;
  for i:=1 to k do
    begin
      readln(t,w);
      pd[t,w]:=true;
    end;
  dl[1,1]:=n mod 10;
  dl[1,2]:=n div 10 mod 10;
  dl[1,3]:=n div 100 mod 10;
  dl[1,4]:=n div 1000;
  t:=1;
  w:=1;
  repeat
    for i:=1 to 4 do
      for j:=0 to 9 do
        if pd[dl[t,i],j] then
          begin
            c:=dl[t,1]+dl[t,2]*10+dl[t,3]*100+dl[t,4]*1000;  //原来的数,如234
            c:=round(c-dl[t,i]*exp((i-1)*ln(10)));           //减变去的数,如2
            c:=round(c+j*exp((i-1)*ln(10)));                 //加变回的数,如5
            if pp[c] then                                    //该数没有产生过
              begin
                inc(w);                                      //入队新变的数
                dl[w,1]:=c mod 10;
                dl[w,2]:=c div 10 mod 10;
                dl[w,3]:=c div 100 mod 10;
                dl[w,4]:=c div 1000;
                pp[c]:=false;                               //标记该数产生过
              end;
          end;
    inc(t);                                                 //出队
  until t>w;
  t:=0;
  for i:=1 to 10000 do                                      //统计标记过产生数的个数
    if not pp[i] then inc(t);
  writeln(t);
  close(input);
  close(output);
end.

务必请管理员明察！！！

务必务必！！！

截图我会随后放上，各位管理员，请注意