Напишите правила поведения в кабинете технологии. как можно больше примеров. ​

Слушать учителя

Выполнять все требования учителя

Пользоваться оборудованием только с позволения учителя

Не заниматься самодеятельностью)))

Объяснение:

1 Конечно же не бегать и не огрызаться с учителем

2 Ничего не трогать без разрешения учителя

3 Во время работы внимательно выполнять приказы учителя

4 После окончания работы убрать рубанок ( предметы ), а также всякий мусор ( опилки )

5 Не работать с неисправным инстурментом

6 Всегда иметь при себе спец одежду

7 При работе одевать специальные очки ( если они при себе )

8 Не подходить к неизученным станкам, и тем более не трогать их, не нажимать кнопки

Вроде все)))

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

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