Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
Задание 2
Сначала переводим число в 10 систему счисления (фото 1 под 1)) т.к. получается очень большая дробная часть число полностью не выписывала (красные цифры это значение букв на которое надо умножать) сможете выписать весь ответ с фото 4
Далее уже получившееся число переводим из 10 системы счисления в 7 отдельно целую и дробную части (фото 1 под2)) дробную часть написала частично расчеты можете продолжить самостоятельно (полный ответ на рисунке 3)
аналогично с переводом в 17 и 22 системы
Задание 3
1-10)0 1 2 3 4 5 6 7 8 9 A
11-20) B C D E F G H I J K
21-30) 10 11 12 13 14 15 16 17 18 19
31-40) 1A 1B 1C 1D 1E 1F 1G 1H 1I 1J
41-50) 1K 20 21 22 23 24 25 26 27 28
51-60) 29 2A 2B 2C 2D 2E 2F 2G 2H 2I
61-70) 2J 2K 30 31 32 33 34 35 36 37
9 км, путь К-Н-М-О
Объяснение:
Из пункта К можно попасть в Л или Н, при этом изначально для нас предпочтительнее Н, т.к. он короче на 1 км.
Глянем теперь на конечный пункт - из пункта О можно попасть только в пункт М, таким образом нам необходимо найти кратчайший путь из пункта К в пункт М.
Рассмотрим наиболее предпочтительный путь для начала: К-Н.
Можем ли мы попасть из пункта Н в путь М сразу? Да, за 4 км.
Сравним с ситуацией в пункте Л. Можем ли мы попасть в пункт М сразу? Да, тоже за 4 км.
Поскольку из Л и Н попасть в пункт М можно за 4 км, то мы сразу можем понять, что правильный путь это К-Н, потому что он выгоднее на 1 км изначально, а в дальнейшем пути одинаковые.
В результате чего у нас получается путь К-Н-М-О или 2+4+3 = 9 км.
Надеюсь, логика понятна :)