Const
ab = 'ышчо'; //алфавит племени
var
vort: string;
j, k, raz: integer;
per: boolean;//признак переноса разряда
//проверка наличия совпадающих букв в слове
function kond(var vort: string): boolean;
var
n: integer;
begin
result := false;
n := length(vort);
for var i := 1 to n - 1 do
for var j := i + 1 to n do
if vort[j] = vort[i] then
begin
result := true;
exit;
end;
end;
begin
writeln('Введите k');
readln(k);
for var i := 1 to k do
vort := vort + ab[1];
raz := k;
per := false;
while raz > 0 do
if per then
begin
while vort[raz] = ab[4] do
begin
vort[raz] := ab[1];
raz := raz - 1;
if raz < 1 then exit;
end;
j := pos(vort[raz], ab) + 1;
vort[raz] := ab[j];
per := false;
raz := k;
end
else
begin
if kond(vort) then writeln(vort);
j := pos(vort[k], ab) + 1;
if j > 4 then
per := true
else
vort[k] := ab[j];
end;
end.
Здесь можно использовать размещение:
= 5! / (5-2)! = 5*4 = 20
Ответ: 20 способами
Спас зайцев с острова A
Спас зайцев с бревна B
A&B
Сохранение мира A
увеличить усилия всех государств B
B→A
Отказываться от помощи A
Сесть в лужу B
→
подчеркивание сверху означает отрицание
Луна сияла A
Июльская ночь была тиха B
Поднимался ветерок C
Пробегал легкий шорох D
A&B&C&D
Ахейские мастера A
оружейники B
ювелиры C
гончары D
художники E
скульпторы F
A&B&C&D&E&
Сильные A
Афины B
Спарта C
Богатые D
Коринф E
A→B&C+D→E
Берегла книги A
Берегла рисунки B
Берегла стихи C
A&B&C
Бурмин A
Ум, нравится женщинам B
Ум приличия C
Ум наблюдения D
Ум без притязаний E
Ум беспечно насмешливый F
A&(B→C&D&E&F)
Вероятно так... за точность не ручаюсь, ибо уже подупоролась
<span> Если число оканчивается цифрой 0, то оно делится на 5. Известно, что данное число не делится на 5. Следовательно это число оканчивается на любое число,которое не оканчивается на 5 и 0</span>
600 * 1024 * 8 = 4915200 бит в файле
4915200 / (60 * 8) = 10240 Гц
Вроде так)