Уисполнителя вычислитель две команды, которым присвоены номера: 1. умножь на 2 2. вычти 1 первая из них увеличивает число на экране в 2 раза, вторая уменьшает его на 1. составьте алгоритм получения из числа 9 числа 29, содержащий не более 5 команд. в ответе запишите только номера команд. (например, 12212 – это алгоритм умножь на 2 вычти 1 вычти 1 умножь на 2 вычти 1 который преобразует число 5 в число если таких алгоритмов более одного, запишите любой из них.

из 9 в 29 12121 то есть 9-1х2-1х2-1

 

Обозначим имеющиеся высказывания буквами. a: вторая буква слова согласнаяb: последняя буква слова гласнаяc: первая буква слова гласнаятогда исходное условие можно записать в виде (a v b) -> c или в ему эквилентном оно истинно, если истинно с или если одновременно ложны и а, и в.слов с первой гласной буквой нет, поэтому с всегда ложно. переформулируем условие , убрав отрицание: " вторая буква слова гласная" и " последняя буква слова согласная". теперь посмотрим, есть ли среди заданных слова, удовлетворяющие этому условию. вторая буква гласная в словах "закон" и "горе", а последняя буква согласная только в первом из этих слов. поэтому слово "закон" отвечает всем условиям и является ответом. ответ: закон.

'на первом листе внесите данные 'при добавлении записей формулу вычисления задолженности добавлять не надо 'запускаете макрос - результат (отчет) на втором листе 'на первом листе формулы пересчитывается - результаты обновляются 'форма в этом случае -излишне dim i, j, s, a sub othet () dim info as variant 'clear othet(2 list)   sheets(2).select       range("a1: i1").select       with selection               .horizontalalignment = xlgeneral:               .verticalalignment = xlbottom               .addindent = false:               .indentlevel = 0:     .shrinktofit = false:                   .mergecells = true       end with       selection.font.bold = true       with selection       end with sheets(2).cells(1, 1) = "отчет" 'shapka 1 list sheets(1).select   info = array("", "фамилия", "адрес", "дата", "стоимость заказа", "сумма аванса", "задолженность", "вид заказа") for i = 1 to ubound(info)   cells(1, i) = info(i) next i = 2 'расчет долга while cells(i, 1) < > ""   cells(i, 5) = "=d" + chr(48 + i) + "-e" + chr(48 + i)   i = i + 1 wend rows("1: 1").select selection.autofilter a = "" + "> " + inputbox("укажите задолженность", "", 0) + "" selection.autofilter field: =5, criteria1: =a, operator: =xland range("a1: g" + chr(48 + i) + "").copy sheets(2).range("a2") sheets(1).select selection.autofilter end sub