М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lluciferr01
lluciferr01
30.03.2020 11:23 •  Другие предметы

На шельфе морей океана водоросли обычно растут до глубины 20—40 м. Чем это объясняется?

👇
Ответ:
Valeri200666
Valeri200666
30.03.2020
Это объясняется лучшей освещенностью вод до этих глубин и полярной ночью или появлением льда, когда освещенность резко уменьшается.
4,5(62 оценок)
Открыть все ответы
Ответ:
rufiyamama
rufiyamama
30.03.2020

Объяснение:

ШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хА

4,5(21 оценок)
Ответ:
милота0011
милота0011
30.03.2020
   '     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)
4,5(74 оценок)
Это интересно:
Новые ответы от MOGZ: Другие предметы
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ