fork download

copy

program Razbieniya;
    type Razb=array [byte] of byte;
    var N,i,L:byte;
	X:Razb;
    procedure Next(var X:Razb;var L:byte);
      var i,j:byte;
	  s:word;
    begin
      i:=L-1;s:=X[L];
      while (i>1)and(X[i-1]<=X[i]) do begin s:=s+X[i];dec(i) end;
      inc(X[i]);
      L:=i+s-1;
      for j:=i+1 to L do X[j]:=1
    end;
  begin
    write('N=');readln(N);
    L:=N; for i:=1 to L do X[i]:=1;
    for i:=1 to L do write(X[i]);writeln;
    repeat
      Next(X,L);
      for i:=1 to L do write(X[i]);writeln
    until L=1
  end.
 

prog.cpp:16:11: warning: multi-character character constant [-Wmultichar]
     write('N=');readln(N);
           ^~~~
prog.cpp:1:1: error: ‘program’ does not name a type
 program Razbieniya;
 ^~~~~~~
prog.cpp:2:5: error: ‘type’ does not name a type; did you mean ‘typeof’?
     type Razb=array [byte] of byte;
     ^~~~
     typeof
prog.cpp:3:5: error: ‘var’ does not name a type; did you mean ‘char’?
     var N,i,L:byte;
     ^~~
     char
prog.cpp:4:3: error: found ‘:’ in nested-name-specifier, expected ‘::’
  X:Razb;
   ^
   ::
prog.cpp:4:2: error: ‘X’ does not name a type
  X:Razb;
  ^
prog.cpp:5:5: error: ‘procedure’ does not name a type
     procedure Next(var X:Razb;var L:byte);
     ^~~~~~~~~
prog.cpp:5:31: error: ‘var’ does not name a type; did you mean ‘char’?
     procedure Next(var X:Razb;var L:byte);
                               ^~~
                               char
prog.cpp:6:7: error: ‘var’ does not name a type; did you mean ‘char’?
       var i,j:byte;
       ^~~
       char
prog.cpp:7:5: error: found ‘:’ in nested-name-specifier, expected ‘::’
    s:word;
     ^
     ::
prog.cpp:7:4: error: ‘s’ does not name a type
    s:word;
    ^
prog.cpp:8:5: error: ‘begin’ does not name a type
     begin
     ^~~~~
prog.cpp:9:14: error: ‘s’ does not name a type
       i:=L-1;s:=X[L];
              ^
prog.cpp:10:7: error: expected unqualified-id before ‘while’
       while (i>1)and(X[i-1]<=X[i]) do begin s:=s+X[i];dec(i) end;
       ^~~~~
prog.cpp:10:58: error: expected constructor, destructor, or type conversion before ‘(’ token
       while (i>1)and(X[i-1]<=X[i]) do begin s:=s+X[i];dec(i) end;
                                                          ^
prog.cpp:11:10: error: expected constructor, destructor, or type conversion before ‘(’ token
       inc(X[i]);
          ^
prog.cpp:12:7: error: ‘L’ does not name a type
       L:=i+s-1;
       ^
prog.cpp:13:7: error: expected unqualified-id before ‘for’
       for j:=i+1 to L do X[j]:=1
       ^~~
prog.cpp:15:3: error: ‘begin’ does not name a type
   begin
   ^~~~~
prog.cpp:16:23: error: expected constructor, destructor, or type conversion before ‘(’ token
     write('N=');readln(N);
                       ^
prog.cpp:17:5: error: ‘L’ does not name a type
     L:=N; for i:=1 to L do X[i]:=1;
     ^
prog.cpp:17:11: error: expected unqualified-id before ‘for’
     L:=N; for i:=1 to L do X[i]:=1;
           ^~~
prog.cpp:18:5: error: expected unqualified-id before ‘for’
     for i:=1 to L do write(X[i]);writeln;
     ^~~
prog.cpp:18:34: error: ‘writeln’ does not name a type
     for i:=1 to L do write(X[i]);writeln;
                                  ^~~~~~~
prog.cpp:19:5: error: ‘repeat’ does not name a type
     repeat
     ^~~~~~
prog.cpp:21:7: error: expected unqualified-id before ‘for’
       for i:=1 to L do write(X[i]);writeln
       ^~~
prog.cpp:21:36: error: ‘writeln’ does not name a type
       for i:=1 to L do write(X[i]);writeln
                                    ^~~~~~~

Standard output is empty