Материал: ИПР1

for j:=i+1 to k_count do if ord(s[i])>ord(s[j]) then begin

c:=s[i];

s[i]:=s[j];

s[j]:=c;

end; //Добавляем в Stringlist sL.Add(s);

end;

end;

begin

sL:= TStringList.Create; sL.Sorted:= True;

sL.Duplicates:= dupIgnore; // Удаление всех дубликатов Gen('',n_s_count);

ListBox1.Items.Assign(sL);

sL.Free;

Label17.Caption:= 'Число сочетаний: ' + IntToStr(Form1.ListBox1.Items.Count); end;

Результаты работы программы: