PersonalCorpus 版 (精华区)

148747 22:24:40
28 Feb 2002 Bozhang,HIT,P.R.China 1017 Pascal Accepted 0.02 sec 57K


var
    s:array[0..500] of comp;
    i,j,n:integer;
begin
    readln(n);
    fillchar(s,sizeof(s),0);
    s[0]:=1;
    for i:=1 to n-1 do
        for j:=n downto i do s[j]:=s[j]+s[j-i];
    writeln(s[n]:0:0);
end.