' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
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)
<span>2)Найти все делители числа 1204.
</span>
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<span>
MsgBox(msg)</span>
100*40=4000
Т.к. 1 символ весит 1 байт, информационный объем книги равен 4000
4000\1024=3,90кб
1. x=2 y=5 t=5
2. a=3 b=3
3. a=4683 b=4680
4. b=189 a=71
5. b=17 a=9
6. b=19 a=11
7. b=14 a=7
Закодированной,зашифрованной