Ответы на вопрос:
Вмассиве a получаем все возможные комбинации 0 и 1 (как в n-разрядном двоичном числе). для каждой полученной комбинации печатаем индексы элементов, которые = 1. var n,i: integer; a: array of integer; begin write('n = '); readln(n); setlength(a,n+1); while a[n]< > 1 do begin i: =0; while (a[i]=1) do begin a[i]: =0; i: =i+1; end; a[i]: =1; for i: =0 to n-1 do if a[i]=1 then write(i+1); writeln; end; end. пример: n = 3 1 2 12 3 13 23 123
Популярно: Информатика
-
Irakli200730.04.2022 20:53
-
DuginBorodaIzVaty21.05.2020 12:11
-
NazarKlakovych2806.01.2022 17:38
-
рооллбббб17.05.2020 19:39
-
Olya1078314.10.2021 11:27
-
AlexOge08.01.2020 21:20
-
polimur907.06.2023 10:57
-
Den1ska413.11.2020 20:42
-
daniilkeidi17.11.2020 08:07
-
KimSuho0104.11.2021 07:41