1)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3394; 8599], которые удовлетворяют следующим условиям: − остаток от деления на 3 равен 1;
− остаток от деления на 7 равен 5.
Найдите наибольшее из таких чисел и их сумму. Гарантируется, что искомая сумма не превосходит 107.
2) Рассматривается множество целых чисел, принадлежащих числовому отрезку [3712; 8432], которые удовлетворяют следующим условиям:
− запись в двоичной и четверичной системах счисления заканчивается одинаковой цифрой;
− кратны, по крайней мере, одному из чисел: 13, 14 или 15.
Найдите количество таких чисел и минимальное из них.
3)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3439; 7410], которые удовлетворяют следующим условиям:
− запись в двоичной и шестеричной системах счисления заканчивается разными цифрами;
− кратны, по крайней мере, одному из чисел: 9, 10 или 11.
Найдите количество таких чисел и максимальное из них.

Задание 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

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