pascal to the moon by arsonist gaming

var i,j,k,l:integer;a:array[0..9999]of real;b:array[0..9999]of real;begin l:=1;for i:=0 to 1013 do b[i]:=0;a[0]:=1;for i:=0 to 9 do begin l:=l*2;for j:=0 to 1013 do begin if a[j]>0 then write(a[j]:0:0);if a[j+1]>0 then write(' ');b[j]:=a[j];a[j]:=0 end;for j:=0 to 1013 do begin for k:=1 to l do begin if k-j<2 then a[j]:=a[j]+b[j-k+1]end end;writeln end end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)


return to the top page