ac1032.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 46 行

program tju1032;
const
  sols=6561;
var
  ans:array[1..sols]of longint;
  s,t:string;
  n,i,count:longint;
procedure cal;
  var
    p,l:word;
    t:longint;
  begin
    inc(n);l:=0;
    for p:=length(s) downto 1 do begin
      inc(l);
      if s[p] in ['+','-'] then begin
        val(copy(s,p,l),t,l);
        inc(ans[n],t);
        l:=0;
      end;
    end;
  end;
procedure search(l:byte);
  begin
    s:=s+chr(48+l);
    if l=9 then
      cal
    else begin
      search(l+1);
      s:=s+'+';search(l+1);delete(s,length(s),1);
      s:=s+'-';search(l+1);delete(s,length(s),1);
    end;
    delete(s,length(s),1);
  end;
begin
  s:='+';
  search(1);
  repeat
    read(n);
    count:=0;
    for i:=1 to sols do
      if ans[i]=n then inc(count);
    writeln(count);
  until seekeof;
end.