Facebook
From Small Bongo, 3 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 97
  1. var  np: array[1..30] of longint; i,n.p:longint;
  2. begin
  3.   assign(input,'np.inp');reset(input);
  4.   assign(output,'np.out');rewrite(output);
  5.   read(n);
  6.   for i:=1 to n do np[i]:=0;
  7.   While true do begin
  8.    For i:=1 to n do  writeln(np[i])
  9.    p:=n;
  10.    While (p>0)  and (np[p]=1) do dec(n);
  11.    np[p]:=1;
  12.    for i:=p+1 to n do np[i]:=0;
  13.    end;
  14.   close(input);
  15.   close(output);
  16. end.