Інсти Обозначим пункты Бишкек - В; Суусамырская Разнилка - А; Жалал-Абад - J; Талас - Т; Опт - О; Каракол - K; Балыкчы - L; Нары - N; Баткені - Е. Расстояния между ними (по хорошим дорогам, и километрах) следующие: AT 12, АЛ 377; ЛВ 19:3; Jo 10); OE 240; LB 179; LK 216; LN 180, Разрешепная скорость автомашины - 650 км/час. Сейчас актомантины находится в нескольких пунктах. Найдите минимально неузможнохт время (в минутах), чтобы им собраться в одном месте. Если отит - пе целом: число, то округлить его вікух До слого числа. Формат входных данных В первой строке - количество 2 , N 4, 5 машин и пункти, где они находятся. Во второй строке разделенные единичными прибилами N px личных гигланных латинских букв. Формат выходных данных Натуральное число, ответ на задачу в минутах. Система оценки Задаа оценивается в В лучае 52 теста, каждый тест кіхэме, түстен к примерон кинлеrси и Примеры стандартный ввод талдарды и выход 2 т 10 638 3 NTE
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()
27=16+8+2+1=2^4+2^3+2^1+2^0=1 1011 (2cc)
0,|27 * 2
0|54 *2
1|08 *2
0|16 *2
0|32 *2
0|64 *2
1|28 *2
0|56 *2
1|12 *2
0|24 *2
0|48 *2
0|96 *2
1|92 *2
1|84 *2
1|68 *2
1|36 *2
0|72 *2
1 |44 *2
0|88 *2
1|76 *2
1|52
+1
1|04 (последний байт при приближении =1100)
27, 27 = 1 1011, 0100 0101 0001 1110 1100 (в2сс) ≈11011,01001
27,27 = 1 B , 4 5 1 E B = 1B,451EC (в 16сс)
27, 27 = 11 011, 010 001 010 111 (в 2сс) =33,21217 ( в 8сс)
3 3, 2 1 2 7