С:= 0
for i := 1 to 9 do
if A[1] (7) < A[0] (4) then begin
c = 0
end;
<span>Все буквы различны, каждая вынуждена встречаться только 1 раз, поэтому количество слов будет равняться количеству перестановок P =7 (при условии, что на "ы" тоже слова могут начинаться) = 7*6*...*1 = 5040</span>
Скоро выйдет, ещё не много
Процессор,оперативная память,жёсткий диск,системный блок,монитор,мышка и клавиатура
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Draw(x->Sqrt(x),0,10)
end.