Предмет: Литература, автор: dtanya334

Який. Транспорт. Є. В. Тернопільській. Області

Ответы

Автор ответа: moondevil237
1

Транспортна галузь Тернопільськоï області представлена такими видами транспорту: залiзничний, автомобільний, рiчковий, трубопровiдний, авіаційний.

dtanya334: Дякую
Предыдущий вопрос
Следующий вопрос
Интересные вопросы
Предмет: Английский язык, автор: Аноним
как переводится падушка из ваты?
2 года назад
Предмет: Русский язык, автор: маша1162
Разбор слова вуаль как часть речи
2 года назад
Предмет: Українська мова, автор: vipkotik5
71. 1. Спиши. Встав коми. Доведи правильність їх уживання. 2. Поясни правопис виділених слів. 3. Поясни значення одного з прислів"їв (на вибір). 1.Не на слова заважай, а на роботу. 2. Золото в болото впаде та міддю не стане. 3. Вересень холодний але ситий. 4. Біда замучить але й научить. 5. Грудень рік кінчає а зиму починає.
2 года назад
Предмет: Химия, автор: Pulpits
Помогите,пожалуйста , написать структурно
2,2,4,4-тетрометилпентанол-3


3,4-диметилгептаналь

3,4-диэтилоктадиен-1,4

2,3,4,5-тетраметил-4-пропилдекан
8 лет назад
Предмет: Информатика, автор: 2001DANILKA2001
НАПИСАТЬ СЛОВЕСНЫЕ АЛГОРИТМЫ К ДАННЫМ ПРОГРАММАМ, ПОМОГИТЕ!!!
Private Sub CommandButton1_Click()
'Объявление переменных
Dim A As Integer, S As Integer
'Ввод исходных данных
A = Val(Cells(2, 2).Value)
S = 0
i = 0
'Рассчет
While S < A
S = S + 1
i = i + 1
'Вывод результатов
Cells(i + 1, 1).Value = Str(S)
Wend

End Sub
-------------------------------------------------

Private Sub CommandButton1_Click()
'Объявление переменных
Dim R2 As Single, R3 As Single
Dim R1beg As Single, R1End As Single, dR1 As Single
Dim R12 As Single, R13 As Single, R23 As Single
'Ввод исходных данных
R2 = Val(Cells(3, 1).Value)
R3 = Val(Cells(3, 2).Value)
R1beg = Val(Cells(3, 3).Value)
R1End = Val(Cells(3, 4).Value)
dR1 = Val(Cells(3, 5).Value)
'Расчет
NumRow = 6
For R1 = R1beg To R1End Step dR1
R12 = R1 + R2 + (R1 * R2 / R3)
R13 = R1 + R3 + (R1 * R3 / R2)
R23 = R2 + R3 + (R2 * R3 / R1)
Cells(NumRow, 1).Value = Str(R1)
Cells(NumRow, 2).Value = Str(R12)
Cells(NumRow, 3).Value = Str(R13)
Cells(NumRow, 4).Value = Str(R23)

NumRow = NumRow + 1
Next R1
End Sub


Private Sub CommandButton2_Click()
For i = 1 To 5
Cells(3, i).Value = ""
Next i
For j = 6 To 16
Cells(j, 1).Value = ""
Next j
For k = 6 To 16
Cells(k, 2).Value = ""
Next k
For A = 6 To 16
Cells(A, 3).Value = ""
Next A
For b = 6 To 16
Cells(b, 4).Value = ""
Next b
End Sub
8 лет назад