ac1032.pas

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

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.