Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь

@leshabests · Регистрация: 20.02.2013

Есть n цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь. Ввод-вывод в текстовые файлы

@NurlashKO · 25.02.2013, 21:56

Pascal

var
    n, i, j :longint;
    s :array[0 .. 1000] of string;
begin
    assign(input, 'in');
    reset(input);
    assign(output, 'out');
    rewrite(output);
 
    readln(n);
 
    for i := 0 to n - 1 do 
        readln(s[i]);
 
    for i := 1 to (1 shl n) - 1 do begin
        for j := 0 to n - 1 do
            if ((i and (1 shl j)) > 0) then
                write(s[j], ' ');
        writeln;
    end;
end.

@leshabests 0 / 0 / 0 Регистрация: 20.02.2013 Сообщений: 9
		1
	Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь 24.02.2013, 21:02. Просмотров 2250. Ответов 1 Метки нет (Все метки) Есть n цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь. Ввод-вывод в текстовые файлы 0

Опции темы

Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь

Решение