Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  2333
Language: PASCAL
Code:
var
  a,b,c,d:integer;
  s:array[1..2013] of integer;
begin
  s[1]:=1;s[2013]:=1;
  for a:=1 to 9 do begin
  for b:=1 to 2013 do begin
    if (s[b]<>0) then write(s[b],' ');
  end;
    for b:=1 to 2013 do begin
      c:=b+1;
      while s[c]=0 do inc(c);
      s[(b+c)div 2]:=s[b]+s[c];
    end;
  end;
  readln
end.
Comments: