М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
astreyalirey
astreyalirey
13.09.2021 05:57 •  Информатика

Напишите программу, которая подсчитает и выведет количество слов длины 10, которые можно составить из букв a, b, c. Решение
Для решения данной задачи воспользуемся правилом произведения. Оно формулируется таким образом:

Пусть объект A можно выбрать и после каждого такого выбора объект B можно выбрать . Тогда выбор пары (A,B) можно осуществить .

Из этого правила следует, что количество составить слово длины 10 из 3 букв равно 310.

👇
Ответ:

3^10

Объяснение:

Простая комбинаторика, т. к. буквы могут повторяться, следовательно, для первой буквы есть 3 варианта выбора, для второй буквы есть три варианта выбора, ... , для десятой буквы есть три варианта выбора. Получается так: 3*3*3*3*3*3*3*3*3*3 = 3^10 (каждая тройка это кол-во вариантов какую из трех букв выбрать)

4,4(10 оценок)
Открыть все ответы
Ответ:
Маха1437
Маха1437
13.09.2021
Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить):
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do  //р
 for b:=0 to 9 do  //ю
  if (b<>a) then
   for c:=0 to 9 do  //м
    if (c<>a)and(c<>b) then
     for d:=0 to 9 do  //к
      if (d<>a)and(d<>b)and(d<>c) then
       for e:=1 to 1 do  //а
        if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
         for f:=0 to 9 do //в
          if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then
           for g:=0 to 9 do  //и
            if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then
             for h:=2 to 2 do  //я
              if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then
               if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then
                writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h);
end.

Результат:
85931 171862
4,6(31 оценок)
Ответ:
Kiiss
Kiiss
13.09.2021
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 10, 10 ИЗ ЦЕЛ;
  сч1, сч2, макс_гл, разн, мин, макс: ЦЕЛ;

УКАЗ
  ОТ сч1 := 0 ДО 9 ВЫП
    ОТ сч2 := 0 ДО 9 ВЫП
      массив[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1;
      ЕСЛИ сч1 = 0 И сч2 = 0 ТО
        мин := массив[0, 0]; макс := мин; макс_гл := макс
      ИНАЧЕ
        ЕСЛИ массив[сч1, сч2] < мин ТО мин := массив[сч1, сч2]
        АЕСЛИ массив[сч1, сч2] > макс ТО макс := массив[сч1, сч2] КОН;
        ЕСЛИ сч1 = сч2 И массив[сч1, сч2] > макс_гл ТО макс_гл := массив[сч1, сч2] КОН
      КОН
    КОН
  КОН;
  разн := макс - мин

КОН Задание.
4,6(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ