PersonalCorpus 版 (精华区)

148751 22:54:01
28 Feb 2002 Bozhang,HIT,P.R.China 1044 Pascal Accepted 0.02 sec 49K


var
    s:array[0..36] of integer;
    i,j,k,l,a,b,c,d,n:integer;
begin
    readln(n);
    fillchar(s,sizeof(s),0);
    a:=9; b:=9; c:=9; d:=9;
    if n div 2 <4 then d:=0;
    if n div 2 <3 then c:=0;
    if n div 2 <2 then b:=0;
    if n div 2 <1 then a:=0;
    for i:=0 to a do
        for j:=0 to b do
            for k:=0 to c do
                for l:=0 to d do inc(s[i+j+k+l]);
    j:=0;
    for i:=0 to 36 do j:=j+s[i]*s[i];
    if n mod 2=1 then j:=j*10;
    if n=1 then j:=1;
    writeln(j);
end.