Е) нц для i от 1 до 2
S := 0
нц для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
распишите решение

"Говорильный" аппарат,
Модный гаджет,связи рад.
Фото,видео снимает,
На звонки он отвечает.
                                ( Телефон)

К празднику, всегда "накрыт",
Полон явств и каждый сыт,
Я бюро и секретер,
Есть компьютерный размер.
                                 ( Стол)

Важных данных я хранитель,
Информации носитель,
Гибкая,так что же это?
Я магнитная ?(Дискета)

Я блокнот и память я,
Есть и электронная.
Записи я все веду,
Всё фиксирую и жду.
                         (Записная книжка)

Не пищу и не шуршу,
А с компьютером-дружу.
Я курсором управляю,
И командам
                        (Мышка)

Осенью,я всех встречаю.
Летом,просто отдыхаю.
Весь учебный год-учу,
Дарить знания хочу.
                          (Школа)

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