4 года назад

Какие животные и растения охраняются во владимирской области

2 ответа:

alescha4 года назад

0 0

Растения :
-Башмачок настоящий
-Любка зеленоцветковая
-Кувшинка белая
-Колокольчики
-Колокольчики
-Прострел раскрытый
-Печеночница благородная
-Ирис сибирский
-Ятрышник шлемоносный,

megogo244 года назад

0 0

Растения : Змееголовник Рюйша Плаун ,топяной Ветреница, дубравная Полушник ,щетинистый Мытник ,Кауфмана ,Ирис, сибирский Хохлатка ,промежуточная Прострел, раскрытый Рябчик, шахматный Гроздовник, полулунный Росянка, английская Колокольчик ,жестковолосистый (колокольчик олений) ,Борец ,Флерова ,Меч-трава ,Морошка Сальвиния плавающая ,Цмин песчаный Ветреница лесная Гвоздика песчаная Печеночница благородная Башмачок настоящий Авран лекарственный Береза приземистая Волчье лыко
Животные: Берш, Лесной жаворонок, Обыкновенный Подкаменщик, Садовая Овсянка, Седой дятел, Европейский Хариус, Обыкновенный Подуст, Малая Вечерница, Бурый медведь, Стерлядь.

Читайте также

Вами была написана контрольная работа во сколько раз уменьшится неопределённость знаний при оглашении вашей оценки

Мари 104

Всего оценок четыре : 2, 3, 4, 5
Оглашение оценки приводит к уменьшению неопределённости вашего знания в 4 раза, так как Вы получаете одно из четырёх возможных информационных сообщений

0 0

3 года назад

Составить программу в вижуал бэйсик:1) среди всех трехзначных положительных чисел выбрать и вывести на экран только кратные трем

bann72

1. Строка получается слишком длиной, поэтому разбиваем ее на две части
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
If Len(s1) < 1024 Then
s1 = s1 & i & " "
Else
s2 = s2 & i & " "
End If
End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
Cells(n, 1) = i
End If
Next i
MsgBox ("Их количество: " & n)
End Sub

2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
p = 1
For i = 1 To k
p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub

0 0

4 года назад

Написать программу в которой замена производится по такому правилу: если число делится на 2, то оно умножается на 4. Если нет -

Abdu2011

//PascalABC.Net v3.1

var n:integer;

begin

readln(n);

if n mod 2 = 0 then n:=n*4 else n:=n+1;

writeln(n);

end.

0 0

4 года назад

Рассчитайте время звучания стерео аудио файла, если при 32 битной глубине звука и частоте дискретизации 48000 Гц его объём равен

bvvz [7]

V=R*t*N
t=V/RN
t=(3750*1024*8)/(32*48000)
t=20 секунд

0 0

4 года назад

Алгоритмы перечислить срочно на завтра

jacko [7]

Линейный, циклический, с ветвлением

0 0

4 года назад