PersonalCorpus 版 (精华区)

156463 04:31:07 7 Mar 2002
Bozhang,HIT,P.R.China 1036 Pascal Accepted 0.15 sec 856K


type LongInteger =  record
                        n:array[1..200] of integer;
                        len:integer;
                    end;
var
    a:array[0..500,1..2] of LongInteger;
    i,j,k,n,s:integer;
procedure setlengthLI(var a:LongInteger;v:integer);
begin a.len:=v end;
procedure setvalueLI(var a:LongInteger;pos,v:integer);
begin a.n[pos]:=v; end;
procedure copyLI(var des,src:LongInteger);
var i:integer;
begin
    for i:=1 to src.len do des.n[i]:=src.n[i];
    des.len:=src.len;
end;
procedure PlusLI(var des,src1,src2:LongInteger);
var i,k:integer;
begin
    i:=1; k:=0;
    while (i<=src1.len) or (i<=src2.len) do begin
        if i<=src1.len then des.n[i]:=src1.n[i] else des.n[i]:=0;
        if i<=src2.len then des.n[i]:=des.n[i]+src2.n[i];
        des.n[i]:=des.n[i]+k;
        k:=des.n[i] div 10000;
        des.n[i]:=des.n[i] mod 10000;
        inc(i);
    end;
    if k<>0 then begin des.n[i]:=k; des.len:=i end else des.len:=i-1;
end;
procedure MulLI(var des:LongInteger;u:integer);
var i,k:integer;
begin
    if u=0 then begin setlengthLI(des,0); exit end;
    if u=1 then exit;
    i:=1; k:=0;
    while i<=des.len do begin
        des.n[i]:=des.n[i]*u+k;
        k:=des.n[i] div 10000;
        des.n[i]:=des.n[i] mod 10000;
        inc(i);
    end;
    if k<>0 then begin des.n[i]:=k; des.len:=i end else des.len:=i-1;
end;
procedure MulLI2(var des,src1,src2:LongInteger);
var
    i:integer;
    t:LongInteger;
begin
    setlengthLI(des,0);
    for i:=src1.len downto 1 do begin
        MulLI(des,10000);
        CopyLI(t,src2);
        MulLI(t,src1.n[i]);
        PlusLI(des,des,t);
    end;
end;
procedure PrintLI(var des:LongInteger);
var i:integer;
begin
    write(des.n[des.len]);
    for i:=des.len-1 downto 1 do begin
        if des.n[i]<1000 then write(0);
        if des.n[i]<100 then write(0);
        if des.n[i]<10 then write(0);
        write(des.n[i]);
    end;
    writeln;
end;
begin
    fillchar(a,sizeof(a),0);
    for i:=0 to 9 do begin
        setlengthLI(a[i,1],1);
        setvalueLI(a[i,1],1,1);
    end;
    readln(n,s);
    if odd(s) then begin writeln(0); halt end;
    s:=s div 2;
    for i:=2 to n do begin
        for j:=0 to 9 do begin
            k:=i*9; if k>s then k:=s;
            while (k>=j) do begin
                PlusLI(a[k,2],a[k,2],a[k-j,1]);
                dec(k);
            end;
        end;
        for j:=0 to s do begin
            CopyLI(a[j,1],a[j,2]);
            setlengthLI(a[j,2],0);
        end;
    end;
    MulLI2(a[s,2],a[s,1],a[s,1]);
    PrintLI(a[s,2]);
end.