°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°
Складіть блок-схему алгоритму, у якому в цикл з передумовою вкладено неповне розгалудження. Поясніть виконання складеного фрагмента

        '     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)

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)

print("№1")

a = 37*(25+87.5)-17*(4.5+1.9)

print("ответ: ",a)

print("")

print("№2")

a = float(input ("Введите число a: "))

b = float(input ("Введите число b: "))

c = float(input ("Введите число c: "))

d = float(input ("Введите число d: "))

a = ((a*b)/(c+d**4))

print("ответ: ",a)

print("")

print("№3")

a = float(input ("Введите число a: "))

b = float(input ("Введите число b: "))

c = float(input ("Введите число c: "))

a = ((a+2*b-3*c)/(5*a+4))

print("ответ: ",a)

print("")

print("№4")

a = float(input ("Введите число a: "))

b = float(input ("Введите число b: "))

a = ((a+b)/(a-b))+((a*b)/(3.14))

print("ответ: ",a)