сразу говорю - в интернете не решения(там немного другая задача, она похожа на эту) Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 3000. Программа должна вывести одно число: минимальное число кратное 3.

Написано на python3

Объяснение:

n = int(input('Сколько чисел желаете ввести?: '))

list_nums = []

list_3 = []

suma = 0

for i in range(1,n+1):

if n <= 1000:

num = int(input('Введите число: '))

if abs(num) <= 3000:

list_nums.append(num)

for i in list_nums:

if i % 3 == 0 and str(i)[len(str(i)) - 1] == '8':

suma += i

list_3.append(i)

print(min(list_3), '. ' f'Сума чисел заканчивающихся на 8 и делящихся на 3 равна {suma}')

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