' 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>
<h3>Без проблем :</h3>
берём и делим это число на несколько групп, которые будут состоять из 3 цифр - имея 10101101 - получаем : 010 101 101 (приписали 0 к 010 для того чтобы нам было удобно) , ищем числа по табличке переводов из 2 в 8 сс - выводим , что 010 - это 2 , а 101 -это 5
<h2>В итоге мы скрепляем все эти числа получаем ответ : 255</h2>
10111(2) = 23(10)
111101(2) = 61(10)
1101100(2) = 108(10)
Ответы: 4 - Г, 5 - Б, 6 - Г
1-а
2-д
3-с
4-б
5-с
6-б
7-а
8-б
9-б
10-б
11-б
12-б
13-б
14-д
15-а
16-Выведет А=5
17-Read(x);
If x<>0 then
A:=x*x
else
A:=3*x;
18-1