Порядок выполнения работы. 1. Ввести список первых 5 букв алфавита

1. Ввести список первых 5 букв алфавита. Выделите 3-й элемент.

s={А,Б,В,Г,Д}

s[[3]]

2. Найти все размещения с повторениями по 2 из 5 элементов {А,Б,В,Г,Д}.

Do[Print[{s[[m]],s[[n]]}],{m,1,5},{n,1,5}]

3. Найти все размещения без повторений по 2 из 5 элементов {А,Б,В,Г,Д}.

Do[If[m¹n,Print[{s[[m]],s[[n]]}]],{m,1,5},{n,1,5}]

4. Найти все перестановки множества {А,Б,В,Г,Д}.

Permutations[s]

5. Найти все сочетания с повторениями по 2 из 5 элементов{А,Б,В,Г,Д}.

Do[Print[{s[[m]],s[[n]]}],{m,1,5},{n,m,5}]

6. Найти все сочетания без повторений по 2 из 5 элементов{А,Б,В,Г,Д}. Применить команду If.

Do[If[m¹n,Print[{s[[m]],s[[n]]}]],{m,1,5},{n,m,5}]

7. Найти все сочетания без повторений по 2 из 5 элементов{А,Б,В,Г,Д}.Применить команду KSubsets.

<<DiscreteMath`Combinatorica`

KSubsets[s,2]

8. Найти все сочетания без повторений по 2 из 5 элементов{А,Б,В,Г,Д},без применения команды KSubsets и If.

Do[Print[{s[[m]],s[[n]]}],{m,1,5},{n,m+1,5}]

9. Составить список всех размещений с повторениями по 2 из 5 элементов {А,Б,В,Г,Д}.

t=Table[{s[[m]],s[[n]]},{m,1,5},{n,1,5}]

10. Составить список всех сочетаний с повторениями по 2 из 5 элементов {А,Б,В,Г,Д}.

q=Table[{s[[m]],s[[n]]},{m,1,5},{n,m,5}]

11. Составить список всех размещений без повторений по 2 из 5 элементов {А,Б,В,Г,Д}.

tt=Table[{s[[m]],s[[m]]},{m,1,5}]

12. Составить список всех сочетаний без повторений по 2 из 5 элементов {А,Б,В,Г,Д}.

<<DiscreteMath`Combinatorica`

KSetPartitions[s,4]//MatrixForm

14. Найти все разбиения множества {1,2,3,4,5} на 3 блока.

KSetPartitions[5,3]

15. На какие (по числу элементов) блоки можно разбить 6-множество,

Partitions[6]

Самостоятельно задание. Представить в системе Mathematica 5.0 примеры простейших комбинаций из 5 элементов 1, 2, 3, 4, 5.