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

1. О чем шли разговоры за столом у Троекурова. 2. Правду ли рассказывали гости ?. 3. Как Троекуров реагировал на известия о новых грабежах? 4. Почему Антон Пафнутьич остался ночевать вместе с Дефоржем? 4. Что произошло ночью?

Ответы

Автор ответа: tlogobylov940
0

Ответ:

О это будет интересно,-если коротко то. ЗА СТОЛОМ ОНИ РАЗГОВОРИААЛИ ПРО ВСЕ. НЕ ВСЕ ГОСТИ РАССКАЗЫВАЛИ ПРАВДУ. ТРОЕКУРОВ ДУМАЛ ЧТОБы

Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Русский язык, автор: masha7224
Придумайте предложения, в которых местоимения ОНА обозначало бы:
1) лицо женского пола
2)самку животного
3) предмет
4) явление природы
5) явление языка
6) математическое понятие
1 год назад
Предмет: Русский язык, автор: 12345678910281
нужно два повествовательных предложения
1 год назад
Предмет: Английский язык, автор: svetik2508
Вставить пропущенные слова at, next, between. Ted is standing ... the corner of the strit. Ted is standing ... Bobby and Ademi. Ted is standing ... the table. Ted is standing the blackboard and the desk. Ted is standing ... the blackboard. He is standing ... the car.
1 год назад
Предмет: Физика, автор: usaske279
На столі лежить суцільний мідний куб, довжина ребра якого 30 см. Якою є маса куба, якщо він здійснює на стіл тиск 3 кПа.
7 лет назад
Предмет: Информатика, автор: samuray19782107
Помогите определить виды матриц из данного примера: (2*A*E)+T Задача для VBa, знаю только, что E-треугольная.

Sub sup()
Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Dim D() As Integer
Dim E() As Integer
Dim T() As Integer
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer

N = InputBox("Введите количество столбцов")
ReDim A(N, N)
ReDim B(N, N)
ReDim C(N, N)
ReDim D(N, N)
ReDim E(N, N)
ReDim T(N, N)
Randomize
Range("A1").Value = "(2*A*T)+E"
Range("A2").Value = "Матрица A"
For i = 1 To N
For j = 1 To N
If i <> j Then
A(i, j) = 1
End If

Next j
Next i
For i = 1 To N
For j = 1 To N
Cells(2 + 1, j).Value = A(i, j)

Next j
Next i
Cells(3 + N, 1).Value = "Матрица T"
For i = 1 To N
For j = 1 To N
If i >= j Then
T(i, j) = 0
Else
T(i, j) = Rnd * 10
End If

Next j
Next i
For i = 1 To N
For j = 1 To N
Cells(3 + N + i, j).Value = T(i, j)

Next j
Next i
Cells(4 + N * 2, 1).Value = "Матрица E"
For i = 1 To N
For j = 1 To N
E(i, j) = Rnd * 10
If i <> j Then E(j, i) = C(i, j)

Next j
Next i
For i = 1 To N
For j = 1 To N
Cells(4 + N * 2 + i, j).Value = E(i, j)

Next j
Next i
Cells(5 + N * 3, 1).Value = "C=A*T"
For i = 1 To N
For j = 1 To N
E(i, j) = 0
For k = 1 To N
E(i, j) = E(i, j) + A(i, k) * T(k, j)

Next k
Next j
Next i
For i = 1 To N
For j = 1 To N
Cells(5 + N * 3 + i, j).Value = C(i, j)

Next j
Next i
Cells(6 + N * 4, 1).Value = "B=C*2"
For i = 1 To N
For j = 1 To N
B(i, j) = C(i, j) * 2

Next j
Next i
For i = 1 To N
For j = 1 To N
Cells(6 + N * 4 + i, j).Value = T(i, j)

Next j
Next i
Cells(7 + N * 5, 1).Value = "D=B+C"
For i = 1 To N
For j = 1 To N
D(i, j) = B(i, j) + C(i, j)

Next j
Next i
For i = 1 To N
For j = 1 To N
Cells(7 + N * 5 + i, j).Value = D(i, j)
Next j
Next i

End Sub
7 лет назад