
Вопрос задан 01.08.2018 в 16:36.
Предмет Информатика.
Спрашивает Тимурова Соня.
Есть алгоритм 1.Прибавить 1 2. Прибавить 2 3. Умножить на 3 Сколько существует программ получение
числа 13 из числа 1, включающих в себя числа 4 и 9

Ответы на вопрос

Отвечает Хайрутдинов Ильназ.
На коленке посчитал:
Ответ: 160
Const Finish = 13;
Var N : integer;
Procedure Go(a : Byte; a4,a9 : boolean; s : String);
Begin
If (a=Finish) and a4 and a9 then
Begin
Inc(N);
Writeln(s);
end
else
If a<Finish then
Begin
a4:=a4 or (a=4);
a9:=a9 or (a=9);
Go(a+1,a4,a9,s+'+1');
Go(a+2,a4,a9,s+'+2');
Go(a*3,a4,a9,s+'*3');
end;
end;
Begin
N:=0;
Go(1,false,false,'1');
Writeln('Всего вариантов: ',N);
end.
Результат:
1+1+1+1+1+1+1+1+1+1+1+1+1
1+1+1+1+1+1+1+1+1+1+1+2
1+1+1+1+1+1+1+1+1+1+2+1
1+1+1+1+1+1+1+1+1+2+1+1
1+1+1+1+1+1+1+1+1+2+2
1+1+1+1+1+1+1+2+1+1+1+1
1+1+1+1+1+1+1+2+1+1+2
1+1+1+1+1+1+1+2+1+2+1
1+1+1+1+1+1+1+2+2+1+1
1+1+1+1+1+1+1+2+2+2
1+1+1+1+1+1+2+1+1+1+1+1
1+1+1+1+1+1+2+1+1+1+2
1+1+1+1+1+1+2+1+1+2+1
1+1+1+1+1+1+2+1+2+1+1
1+1+1+1+1+1+2+1+2+2
1+1+1+1+1+2+1+1+1+1+1+1
1+1+1+1+1+2+1+1+1+1+2
1+1+1+1+1+2+1+1+1+2+1
1+1+1+1+1+2+1+1+2+1+1
1+1+1+1+1+2+1+1+2+2
1+1+1+1+1+2+2+1+1+1+1
1+1+1+1+1+2+2+1+1+2
1+1+1+1+1+2+2+1+2+1
1+1+1+1+1+2+2+2+1+1
1+1+1+1+1+2+2+2+2
1+1+1+1+2+1+1+1+1+1+1+1
1+1+1+1+2+1+1+1+1+1+2
1+1+1+1+2+1+1+1+1+2+1
1+1+1+1+2+1+1+1+2+1+1
1+1+1+1+2+1+1+1+2+2
1+1+1+1+2+1+2+1+1+1+1
1+1+1+1+2+1+2+1+1+2
1+1+1+1+2+1+2+1+2+1
1+1+1+1+2+1+2+2+1+1
1+1+1+1+2+1+2+2+2
1+1+1+1+2+2+1+1+1+1+1
1+1+1+1+2+2+1+1+1+2
1+1+1+1+2+2+1+1+2+1
1+1+1+1+2+2+1+2+1+1
1+1+1+1+2+2+1+2+2
1+1+2+1+1+1+1+1+1+1+1+1
1+1+2+1+1+1+1+1+1+1+2
1+1+2+1+1+1+1+1+1+2+1
1+1+2+1+1+1+1+1+2+1+1
1+1+2+1+1+1+1+1+2+2
1+1+2+1+1+1+2+1+1+1+1
1+1+2+1+1+1+2+1+1+2
1+1+2+1+1+1+2+1+2+1
1+1+2+1+1+1+2+2+1+1
1+1+2+1+1+1+2+2+2
1+1+2+1+1+2+1+1+1+1+1
1+1+2+1+1+2+1+1+1+2
1+1+2+1+1+2+1+1+2+1
1+1+2+1+1+2+1+2+1+1
1+1+2+1+1+2+1+2+2
1+1+2+1+2+1+1+1+1+1+1
1+1+2+1+2+1+1+1+1+2
1+1+2+1+2+1+1+1+2+1
1+1+2+1+2+1+1+2+1+1
1+1+2+1+2+1+1+2+2
1+1+2+1+2+2+1+1+1+1
1+1+2+1+2+2+1+1+2
1+1+2+1+2+2+1+2+1
1+1+2+1+2+2+2+1+1
1+1+2+1+2+2+2+2
1+1+2+2+1+1+1+1+1+1+1
1+1+2+2+1+1+1+1+1+2
1+1+2+2+1+1+1+1+2+1
1+1+2+2+1+1+1+2+1+1
1+1+2+2+1+1+1+2+2
1+1+2+2+1+2+1+1+1+1
1+1+2+2+1+2+1+1+2
1+1+2+2+1+2+1+2+1
1+1+2+2+1+2+2+1+1
1+1+2+2+1+2+2+2
1+1+2+2+2+1+1+1+1+1
1+1+2+2+2+1+1+1+2
1+1+2+2+2+1+1+2+1
1+1+2+2+2+1+2+1+1
1+1+2+2+2+1+2+2
1+2+1+1+1+1+1+1+1+1+1+1
1+2+1+1+1+1+1+1+1+1+2
1+2+1+1+1+1+1+1+1+2+1
1+2+1+1+1+1+1+1+2+1+1
1+2+1+1+1+1+1+1+2+2
1+2+1+1+1+1+2+1+1+1+1
1+2+1+1+1+1+2+1+1+2
1+2+1+1+1+1+2+1+2+1
1+2+1+1+1+1+2+2+1+1
1+2+1+1+1+1+2+2+2
1+2+1+1+1+2+1+1+1+1+1
1+2+1+1+1+2+1+1+1+2
1+2+1+1+1+2+1+1+2+1
1+2+1+1+1+2+1+2+1+1
1+2+1+1+1+2+1+2+2
1+2+1+1+2+1+1+1+1+1+1
1+2+1+1+2+1+1+1+1+2
1+2+1+1+2+1+1+1+2+1
1+2+1+1+2+1+1+2+1+1
1+2+1+1+2+1+1+2+2
1+2+1+1+2+2+1+1+1+1
1+2+1+1+2+2+1+1+2
1+2+1+1+2+2+1+2+1
1+2+1+1+2+2+2+1+1
1+2+1+1+2+2+2+2
1+2+1+2+1+1+1+1+1+1+1
1+2+1+2+1+1+1+1+1+2
1+2+1+2+1+1+1+1+2+1
1+2+1+2+1+1+1+2+1+1
1+2+1+2+1+1+1+2+2
1+2+1+2+1+2+1+1+1+1
1+2+1+2+1+2+1+1+2
1+2+1+2+1+2+1+2+1
1+2+1+2+1+2+2+1+1
1+2+1+2+1+2+2+2
1+2+1+2+2+1+1+1+1+1
1+2+1+2+2+1+1+1+2
1+2+1+2+2+1+1+2+1
1+2+1+2+2+1+2+1+1
1+2+1+2+2+1+2+2
1*3+1+1+1+1+1+1+1+1+1+1
1*3+1+1+1+1+1+1+1+1+2
1*3+1+1+1+1+1+1+1+2+1
1*3+1+1+1+1+1+1+2+1+1
1*3+1+1+1+1+1+1+2+2
1*3+1+1+1+1+2+1+1+1+1
1*3+1+1+1+1+2+1+1+2
1*3+1+1+1+1+2+1+2+1
1*3+1+1+1+1+2+2+1+1
1*3+1+1+1+1+2+2+2
1*3+1+1+1+2+1+1+1+1+1
1*3+1+1+1+2+1+1+1+2
1*3+1+1+1+2+1+1+2+1
1*3+1+1+1+2+1+2+1+1
1*3+1+1+1+2+1+2+2
1*3+1+1+2+1+1+1+1+1+1
1*3+1+1+2+1+1+1+1+2
1*3+1+1+2+1+1+1+2+1
1*3+1+1+2+1+1+2+1+1
1*3+1+1+2+1+1+2+2
1*3+1+1+2+2+1+1+1+1
1*3+1+1+2+2+1+1+2
1*3+1+1+2+2+1+2+1
1*3+1+1+2+2+2+1+1
1*3+1+1+2+2+2+2
1*3+1+2+1+1+1+1+1+1+1
1*3+1+2+1+1+1+1+1+2
1*3+1+2+1+1+1+1+2+1
1*3+1+2+1+1+1+2+1+1
1*3+1+2+1+1+1+2+2
1*3+1+2+1+2+1+1+1+1
1*3+1+2+1+2+1+1+2
1*3+1+2+1+2+1+2+1
1*3+1+2+1+2+2+1+1
1*3+1+2+1+2+2+2
1*3+1+2+2+1+1+1+1+1
1*3+1+2+2+1+1+1+2
1*3+1+2+2+1+1+2+1
1*3+1+2+2+1+2+1+1
1*3+1+2+2+1+2+2
Всего вариантов: 160
Ответ: 160
Const Finish = 13;
Var N : integer;
Procedure Go(a : Byte; a4,a9 : boolean; s : String);
Begin
If (a=Finish) and a4 and a9 then
Begin
Inc(N);
Writeln(s);
end
else
If a<Finish then
Begin
a4:=a4 or (a=4);
a9:=a9 or (a=9);
Go(a+1,a4,a9,s+'+1');
Go(a+2,a4,a9,s+'+2');
Go(a*3,a4,a9,s+'*3');
end;
end;
Begin
N:=0;
Go(1,false,false,'1');
Writeln('Всего вариантов: ',N);
end.
Результат:
1+1+1+1+1+1+1+1+1+1+1+1+1
1+1+1+1+1+1+1+1+1+1+1+2
1+1+1+1+1+1+1+1+1+1+2+1
1+1+1+1+1+1+1+1+1+2+1+1
1+1+1+1+1+1+1+1+1+2+2
1+1+1+1+1+1+1+2+1+1+1+1
1+1+1+1+1+1+1+2+1+1+2
1+1+1+1+1+1+1+2+1+2+1
1+1+1+1+1+1+1+2+2+1+1
1+1+1+1+1+1+1+2+2+2
1+1+1+1+1+1+2+1+1+1+1+1
1+1+1+1+1+1+2+1+1+1+2
1+1+1+1+1+1+2+1+1+2+1
1+1+1+1+1+1+2+1+2+1+1
1+1+1+1+1+1+2+1+2+2
1+1+1+1+1+2+1+1+1+1+1+1
1+1+1+1+1+2+1+1+1+1+2
1+1+1+1+1+2+1+1+1+2+1
1+1+1+1+1+2+1+1+2+1+1
1+1+1+1+1+2+1+1+2+2
1+1+1+1+1+2+2+1+1+1+1
1+1+1+1+1+2+2+1+1+2
1+1+1+1+1+2+2+1+2+1
1+1+1+1+1+2+2+2+1+1
1+1+1+1+1+2+2+2+2
1+1+1+1+2+1+1+1+1+1+1+1
1+1+1+1+2+1+1+1+1+1+2
1+1+1+1+2+1+1+1+1+2+1
1+1+1+1+2+1+1+1+2+1+1
1+1+1+1+2+1+1+1+2+2
1+1+1+1+2+1+2+1+1+1+1
1+1+1+1+2+1+2+1+1+2
1+1+1+1+2+1+2+1+2+1
1+1+1+1+2+1+2+2+1+1
1+1+1+1+2+1+2+2+2
1+1+1+1+2+2+1+1+1+1+1
1+1+1+1+2+2+1+1+1+2
1+1+1+1+2+2+1+1+2+1
1+1+1+1+2+2+1+2+1+1
1+1+1+1+2+2+1+2+2
1+1+2+1+1+1+1+1+1+1+1+1
1+1+2+1+1+1+1+1+1+1+2
1+1+2+1+1+1+1+1+1+2+1
1+1+2+1+1+1+1+1+2+1+1
1+1+2+1+1+1+1+1+2+2
1+1+2+1+1+1+2+1+1+1+1
1+1+2+1+1+1+2+1+1+2
1+1+2+1+1+1+2+1+2+1
1+1+2+1+1+1+2+2+1+1
1+1+2+1+1+1+2+2+2
1+1+2+1+1+2+1+1+1+1+1
1+1+2+1+1+2+1+1+1+2
1+1+2+1+1+2+1+1+2+1
1+1+2+1+1+2+1+2+1+1
1+1+2+1+1+2+1+2+2
1+1+2+1+2+1+1+1+1+1+1
1+1+2+1+2+1+1+1+1+2
1+1+2+1+2+1+1+1+2+1
1+1+2+1+2+1+1+2+1+1
1+1+2+1+2+1+1+2+2
1+1+2+1+2+2+1+1+1+1
1+1+2+1+2+2+1+1+2
1+1+2+1+2+2+1+2+1
1+1+2+1+2+2+2+1+1
1+1+2+1+2+2+2+2
1+1+2+2+1+1+1+1+1+1+1
1+1+2+2+1+1+1+1+1+2
1+1+2+2+1+1+1+1+2+1
1+1+2+2+1+1+1+2+1+1
1+1+2+2+1+1+1+2+2
1+1+2+2+1+2+1+1+1+1
1+1+2+2+1+2+1+1+2
1+1+2+2+1+2+1+2+1
1+1+2+2+1+2+2+1+1
1+1+2+2+1+2+2+2
1+1+2+2+2+1+1+1+1+1
1+1+2+2+2+1+1+1+2
1+1+2+2+2+1+1+2+1
1+1+2+2+2+1+2+1+1
1+1+2+2+2+1+2+2
1+2+1+1+1+1+1+1+1+1+1+1
1+2+1+1+1+1+1+1+1+1+2
1+2+1+1+1+1+1+1+1+2+1
1+2+1+1+1+1+1+1+2+1+1
1+2+1+1+1+1+1+1+2+2
1+2+1+1+1+1+2+1+1+1+1
1+2+1+1+1+1+2+1+1+2
1+2+1+1+1+1+2+1+2+1
1+2+1+1+1+1+2+2+1+1
1+2+1+1+1+1+2+2+2
1+2+1+1+1+2+1+1+1+1+1
1+2+1+1+1+2+1+1+1+2
1+2+1+1+1+2+1+1+2+1
1+2+1+1+1+2+1+2+1+1
1+2+1+1+1+2+1+2+2
1+2+1+1+2+1+1+1+1+1+1
1+2+1+1+2+1+1+1+1+2
1+2+1+1+2+1+1+1+2+1
1+2+1+1+2+1+1+2+1+1
1+2+1+1+2+1+1+2+2
1+2+1+1+2+2+1+1+1+1
1+2+1+1+2+2+1+1+2
1+2+1+1+2+2+1+2+1
1+2+1+1+2+2+2+1+1
1+2+1+1+2+2+2+2
1+2+1+2+1+1+1+1+1+1+1
1+2+1+2+1+1+1+1+1+2
1+2+1+2+1+1+1+1+2+1
1+2+1+2+1+1+1+2+1+1
1+2+1+2+1+1+1+2+2
1+2+1+2+1+2+1+1+1+1
1+2+1+2+1+2+1+1+2
1+2+1+2+1+2+1+2+1
1+2+1+2+1+2+2+1+1
1+2+1+2+1+2+2+2
1+2+1+2+2+1+1+1+1+1
1+2+1+2+2+1+1+1+2
1+2+1+2+2+1+1+2+1
1+2+1+2+2+1+2+1+1
1+2+1+2+2+1+2+2
1*3+1+1+1+1+1+1+1+1+1+1
1*3+1+1+1+1+1+1+1+1+2
1*3+1+1+1+1+1+1+1+2+1
1*3+1+1+1+1+1+1+2+1+1
1*3+1+1+1+1+1+1+2+2
1*3+1+1+1+1+2+1+1+1+1
1*3+1+1+1+1+2+1+1+2
1*3+1+1+1+1+2+1+2+1
1*3+1+1+1+1+2+2+1+1
1*3+1+1+1+1+2+2+2
1*3+1+1+1+2+1+1+1+1+1
1*3+1+1+1+2+1+1+1+2
1*3+1+1+1+2+1+1+2+1
1*3+1+1+1+2+1+2+1+1
1*3+1+1+1+2+1+2+2
1*3+1+1+2+1+1+1+1+1+1
1*3+1+1+2+1+1+1+1+2
1*3+1+1+2+1+1+1+2+1
1*3+1+1+2+1+1+2+1+1
1*3+1+1+2+1+1+2+2
1*3+1+1+2+2+1+1+1+1
1*3+1+1+2+2+1+1+2
1*3+1+1+2+2+1+2+1
1*3+1+1+2+2+2+1+1
1*3+1+1+2+2+2+2
1*3+1+2+1+1+1+1+1+1+1
1*3+1+2+1+1+1+1+1+2
1*3+1+2+1+1+1+1+2+1
1*3+1+2+1+1+1+2+1+1
1*3+1+2+1+1+1+2+2
1*3+1+2+1+2+1+1+1+1
1*3+1+2+1+2+1+1+2
1*3+1+2+1+2+1+2+1
1*3+1+2+1+2+2+1+1
1*3+1+2+1+2+2+2
1*3+1+2+2+1+1+1+1+1
1*3+1+2+2+1+1+1+2
1*3+1+2+2+1+1+2+1
1*3+1+2+2+1+2+1+1
1*3+1+2+2+1+2+2
Всего вариантов: 160



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Алгоритм, описанный в вашем вопросе, состоит из трех шагов: 1. Прибавить 1 к числу 1. 2. Прибавить 2 к числу, полученному на предыдущем шаге. 3. Умножить полученное число на 3.
Чтобы получить число 13, включающее числа 4 и 9, мы можем применить следующую последовательность операций: 1. Прибавляем 1 к 1: 1 + 1 = 2. 2. Прибавляем 2 к 2: 2 + 2 = 4. 3. Умножаем 4 на 3: 4 * 3 = 12.
Таким образом, используя данный алгоритм, мы можем получить число 13, включающее числа 4 и 9, за три операции.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili