Сна­ча­ла найдём общее ко­ли­че­ство слов: 4 · 4 · 4 · 4 · 4  =  1024. После этого вы­чтем из них ко­ли­че­ство слов, в ко­то­рых буква И не встре­ча­ет­ся: 1024 − 3 · 3 · 3 · 3 · 3  =  781. Таким об­ра­зом, Иван может со­ста­вить 781 код.

Ответ: 781.

При­ведём дру­гое ре­ше­ние на языке Python.

При­ведём дру­гое ре­ше­ние на языке Python.

При­ведём ре­ше­ние Мух­та­ра Ба­го­ме­до­ва на языке Python.

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

begin
'ИВАН'.Cartesian(5)
.Where(s->(s.CountOf('И')>0)//хотя бы один раз
).Count.Print;
end.

Сна­ча­ла найдём общее ко­ли­че­ство слов: 5 · 5 · 5 · 5 · 5  =  3125. После этого вы­чтем из них ко­ли­че­ство слов, в ко­то­рых буква С не встре­ча­ет­ся: 3125 − 4 · 4 · 4 · 4 · 4  =  2101. Таким об­ра­зом, Света может со­ста­вить 2101 код.

Ответ: 2101.

При­ведём дру­гое ре­ше­ние на языке Python.

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

begin
'С, В, Е, Т, А'.Remove(', ').Cartesian(5)
.Where(s->(s.CountOf('С')>0)//хотя бы один раз
).Count.Print;
end.

Пусть П стоит в слове на пер­вом месте. Тогда на каж­дое из остав­ших­ся 4 мест можно по­ста­вить не­за­ви­си­мо одну из 4 букв. То есть всего ва­ри­ан­тов.

Таким об­ра­зом, П можно по оче­ре­ди по­ста­вить на все 5 мест, в каж­дом слу­чае по­лу­чая 256 ва­ри­ан­тов.

Итого по­лу­ча­ет­ся слова.

Ответ: 1280.

При­ведём дру­гое ре­ше­ние на языке Python.

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

begin
'П, Р, А, В, О'.Remove(', ').Cartesian(5)
.Where(s->(s.CountOf('П')=1)//ровно одна буква П
).Count.Print;
end.

Пусть К стоит в слове на пер­вом месте. Тогда на каж­дое из остав­ших­ся 2 мест можно по­ста­вить не­за­ви­си­мо одну из четырёх букв. То есть всего ва­ри­ан­та.

Таким об­ра­зом, К можно по оче­ре­ди по­ста­вить на все 3 места, в каж­дом слу­чае по­лу­чая 16 ва­ри­ан­тов.

Итого по­лу­ча­ет­ся слов.

Ответ: 48.

При­ведём дру­гое ре­ше­ние на языке Python.

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

begin
'Р, У, Ч, К, А'.Remove(', ').Cartesian(3)
.Where(s->(s.CountOf('К')=1)//ровно 1 раз
).Count.Print;
end.