Кто работает в поезде? ы заполни пропуски в списке. 1.электровоз 1.1. 1.2. машиниста 2.пассажирские вагон 2.1.первый вагон 2.1.1.начальник поезда 2.1.2. 2.1.3. 2.1.4. 2.2.остальные вагоны 2.2.1.проводник 3. 3.1. директор ресторана 3.2. 3.3.

Вагоны контролер пассажиры 2/1/4 не могу дагодаться

//pascalabc.net 3.1 сборка 1200 procedure decomposition(depth, previous, rest: integer; a: string); begin   if rest < 0 then       exit;     if (rest = 0) and a.contains('+') then begin       println(a);       exit;   end;     for var i : = previous to rest do       decomposition(depth + 1, i, rest - i,           (a = '') ? i.tostring() : a + ' + ' + i.; end; begin   decomposition(1, 1, readinteger('n ='), ''); end.

Var   n: integer;     a: array[1..100] of integer; procedure gen(pos, prev, sum: integer); var i: integer; begin   if sum > 0 then   for i : = prev to sum do   begin     a[pos] : = i;     gen(pos + 1, i, sum - i);   end   else if a[1] < n then   begin     write(a[1]);     for i : = 2 to pos - 1 do write(' + ', a[i]);     writeln;   end; end; begin   read(n);   gen(1, 1, n); end.