ac1062.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1062;
var
  s:string;
  a,b,c,p,q:array[1..6]of byte;
  ans,i:byte;
procedure search(l,d,m:word);
  var
    x,y,z,i:word;
  begin
    if m>=ans then exit;
    if l=0 then begin ans:=m;exit;end;
    for x:=0 to 9 do begin
      p[l]:=x;
      for y:=0 to 9 do begin
        q[l]:=y;
        z:=d;
        for i:=l to 6 do
          inc(z,p[i]*q[6+l-i]);
        search(l-1,z div 10,m+ord(x<>a[l])+ord(y<>b[l])+ord(z mod 10<>c[l]));
        if m>=ans then exit;
      end;
    end;
  end;
begin
  repeat
    readln(s);
    for i:=1 to 6 do begin
      a[i]:=ord(s[i])-48;
      b[i]:=ord(s[7+i])-48;
      c[i]:=ord(s[14+i])-48;
    end;
    ans:=6;
    search(6,0,0);
    writeln(ans);
  until seekeof;
end.