У исполнителя Умножитель две команды, которым присвоены номера:
1. умножь на 3
2. прибавь 8
Первая из них увеличивает число на экране в 3 раза, вторая увеличивает число на экране на 8. Составьте алгоритм получения из числа 4 числа 140, содержащий не более 5 команд. В ответе запишите только номера команд. Если таких алгоритмов более одного, то запишите любой из них.
2.
У исполнителя Квадратор две команды, которым присвоены номера:
1. Уменьшает число в 2 раза
2. Прибавляет к числу 3
Первая из них уменьшает число в 2 раза, вторая прибавляет к нему 3. Составьте алгоритм получения из числа 4 числа 7, содержащий 5 команд. В ответе запишите только номера команд.
Dim u As Integer, u2 As Integer
Dim a As Integer
Dim b As Integer
a = InputBox("Введите Начало промежутка (A)")
b = InputBox("Введите Конец промежутка (В)")
Dim Length As Integer
Length = CInt(((b - a) ^ 2) ^ 0.5)
ReDim mas(Length, 1)
Dim x As Integer, y As Integer, i As Integer
For x = a To b
mas(i, 0) = x
i += 1
Next
For x = 0 To Length
For i = 1 To mas(x, 0)
If (mas(x, 0) Mod i) = 0 Then
mas(x, 1) += 1
End If
Next
Next
For i = Length To 0 Step -1
For y = Length To 1 Step -1
If mas(y, 1) > mas(y - 1, 1) Then
u = mas(y, 1)
u2 = mas(y, 0)
mas(y, 1) = mas(y - 1, 1)
mas(y, 0) = mas(y - 1, 0)
mas(y - 1, 1) = u
mas(y - 1, 0) = u2
End If
Next y
Next i
Например на промежутке 5 - 55 результат такой:
48 делителей 10
36 делителей 9
24 делителей 8
30 делителей 8
40 делителей 8
42 делителей 8
54 делителей 8
12 делителей 6
18 делителей 6
20 делителей 6
28 делителей 6
32 делителей 6
44 делителей 6
45 делителей 6
50 делителей 6
52 делителей 6
16 делителей 5
6 делителей 4
8 делителей 4
10 делителей 4
14 делителей 4
15 делителей 4
21 делителей 4
22 делителей 4
26 делителей 4
27 делителей 4
33 делителей 4
34 делителей 4
35 делителей 4
38 делителей 4
39 делителей 4
46 делителей 4
51 делителей 4
55 делителей 4
9 делителей 3
25 делителей 3
49 делителей 3
5 делителей 2
7 делителей 2
11 делителей 2
13 делителей 2
17 делителей 2
19 делителей 2
23 делителей 2
29 делителей 2
31 делителей 2
37 делителей 2
41 делителей 2
43 делителей 2
47 делителей 2
53 делителей 2
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)