Укажите событие, реакции на которое происходит при отпускании кнопки мыши на объекте. a) onkeypress b) onmouseup c) onclick d) ondblclick e) onmousedown

1) Дерево, кости, камень, папирус, пергамент и так далее
2) В середине XV века немец Иоганн Гутенберг создал разборный печатный шрифт. Он отлил каждую букву из металла и сделал первый печатный станок.
3) 1 марта 1564 года повелением Ивана Грозного было выпущено первое печатное издание на Руси – изданный Иваном Федоровым и Петром Мстиславцем «Апостол». Оба мастера вошли в историю как первопечатники, и дата выхода в свет их творения считается датой начала книгопечатания на Руси. Техника печати, шрифт, верстка — все восхищает в этой книге.
4) Фоно́граф — первый прибор для записи и воспроизведения звука. Изобретён Томасом Эдисоном, представлен 21 ноября 1877 года.
5) С процессами хранения информации, передачи.

Sub TaskToAnswerConverter()

Const A = 10 'целое число, предшествующее интервалу

Const B = 20 'целое число сразу за интервалом

Const Task = "Вычислить кол-во всех целых чисел, больших " & A & " и меньших " & B & "."

'Const Task = "Вычислить сумму всех целых чисел, больших " & A & " и меньших " & B & "."

Dim answer As Variant 'ответ на задачу

   

   Select Case True

    Case InStr(Task, "кол"):   answer = B - A - 1

    Case InStr(Task, "сумм"):  answer = (B - A - 1) * (A + B) / 2

   End Select

   

MsgBox "Удалось " & LCase(Task) & vbCr & vbCr & "Результат: " & answer, vbInformation

End Sub

Объяснение: