Световые кнопки. В комнате есть 3 лампочки, обозначенные X, Y и Z. Есть также четыре кнопки, которые работают следующим образом: Кнопка 1: включает Y, выключает X. Кнопка 2: включает X и Y, выключает Z. Кнопка 3: включает Z, выключает Y. Кнопка 4: включает X. Включение лампы, которая уже включена, оставляет лампочку включенной. Точно так же отключение лампы, которая уже выключена, оставляет лампу выключенной. Вопрос: Когда все лампочки выключены, мы хотим включить их все, нажимая кнопки в определенном порядке. Мы хотим сделать это, нажимая как можно меньше кнопок. Который из нижеследующего порядка является лучшим для нажатия кнопок.
Міркуючи логічно, ви можете включити одну лампу, другу вимкнути, а ось що робити з третьої - незрозуміло. Станів лампи всього два: або «включена», або «вимкнена». Найпопулярніший б вирішення полягає в тому, щоб в якості третьої стану додати поділ ламп на «теплі» і «холодні». Потрібно почекати якийсь час, щоб лампи охололи на випадок, якщо вони недавно включалися. Потім включити одну для нагрівання. Вимкнути її назад і включити будь-яку іншу. Зайшовши після цього в кімнату одна лампа буде горіти, друга виключена і холодна, третя виключена і гаряча. Інший варіант додати лампам стан «перегоріла», якщо є можливість подати на перемикач більшу напругу, ніж потрібно. Дальше действовать аналогічно попередньої схеми.
Procedure GetAB(x: integer; var a: integer; var b: integer); begin a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 100); x := x div 100; end; end;
var x, a, b: integer;
begin for x := 10000 to 2000000000 do begin GetAB(x, a, b); if (a = 3) and (b = 18) then Println(a, b, x); end; end.
Procedure TForm1.Button1Click(Sender: TObject); begin If FontDialog.Execute then RichEdit1.SelAttributes.Assign(FontDialog1.Font); RichEdit1.SetFocus; End; end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу. Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа RichEdit1.SelAttributes.Font := FontDialog1.Font и конечно описка выделенная ранее, как на нее только компилятор не матерится
Відповідь:
Міркуючи логічно, ви можете включити одну лампу, другу вимкнути, а ось що робити з третьої - незрозуміло. Станів лампи всього два: або «включена», або «вимкнена». Найпопулярніший б вирішення полягає в тому, щоб в якості третьої стану додати поділ ламп на «теплі» і «холодні». Потрібно почекати якийсь час, щоб лампи охололи на випадок, якщо вони недавно включалися. Потім включити одну для нагрівання. Вимкнути її назад і включити будь-яку іншу. Зайшовши після цього в кімнату одна лампа буде горіти, друга виключена і холодна, третя виключена і гаряча. Інший варіант додати лампам стан «перегоріла», якщо є можливість подати на перемикач більшу напругу, ніж потрібно. Дальше действовать аналогічно попередньої схеми.
Пояснення: