Здесь скорее логика, чем расчеты. Таблица обычно читается слева направо по строкам.
1) Для вершины А рассмотрим первую строку таблицы. Имеем значения только в столбцах с точками В и С. Это значит, что из вершины А есть ребро в вершину В с длиной 3 и в вершину С с длиной 3. На всех схемах есть такие рёбра, так что пока ответ не готов.
2) Идем далее, рассмотрим вторую строку таблицы с вершиной В. Вершину А можно пропустить, мы уже её рассматривали выше. Числа есть в колонках с вершинами C, D, E. Проверим каждую схему по очереди:
- BC=2, но на схемах №1 и №2 нет такого прямого ребра! Значит, дальше схемы №1 и №2 не рассматриваем! На схемах №3 и №4 рёбра ВС равны 2. Это подходит по условию.
- ВD=1, на схемах №3 и №4 такое ребро есть.
- BE=4, на схеме №3 такое ребро есть, а на схеме №4 такого ребра нет! Следовательно, единственной верной схемой является схема №3.
На этом можно и закончить решение задачи, а можно проверить до конца соответствие таблице: из вершины С есть ребро в вершину D и равно 5, что соответствует схеме №3 (вершины A, B не нужно проверять, это сделано раньше, когда рассматривали рёбра АС и ВС)
Ответ: таблица связей соответствует схеме №3
Если все голуби-птицы,а все птицы-животные,то все голуби являются животными:)
СФОРМУЛИРОВАТЬ ЗАДАЧУ Var a, b, c, d, m, n: integer; Begin Write ('введите натуральные числа a, b, c, d: '); Readln (a, b, c, d
MaxUARU333
Программа вычисляет значение дроби
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.
Var
A, B: array [1 .. 6, 1 .. 6] of byte;
C, D: array [1 .. 6] of byte;
M: array [1 .. 12] of byte;
i, j, MIN, MAX, evenCountC, evenCountD: byte;
begin
randomize;
for j := 1 to 6 do
begin
MAX := 0; MIN := 100;
evenCountC := 0; evenCountD := 0;
for i := 1 to 5 do
begin
A[i, j] := random(20);
B[i, j] := random(20);
if A[i, j] > MAX then MAX := A[i, j];
if B[i, j] < MIN then MIN := B[i, j];
end;
C[j] := MAX;
D[j] := MIN;
end;
writeln(' ***Матрица A***');
for i := 1 to 5 do
begin
for j := 1 to 6 do write(A[i, j]:4);
writeln;
end;
writeln;
writeln(' ***Матрица B***');
for i := 1 to 5 do
begin
for j := 1 to 6 do write(B[i, j]:4);
writeln;
end;
writeln;
writeln('***Вектор C***');
for i := 1 to 6 do
begin
writeln(C[i]:7);
if C[i] mod 2 = 0 then evenCountC := evenCountC + 1;
end;
writeln('Количество четных элементов в векторе C = ', evenCountC);
writeln;
writeln('***Вектор D***');
for i := 1 to 6 do
begin
writeln(D[i]:7);
if D[i] mod 2 = 0 then evenCountD := evenCountD + 1;
end;
writeln('Количество четных элементов в векторе D = ', evenCountD);
if evenCountC > evenCountD then
begin
writeln('Добавляем вектор C к матрице A.');
for i := 1 to 6 do A[6, i] := C[i];
writeln(' ***Измененная матрица A***');
for i := 1 to 6 do
begin
for j := 1 to 6 do write(A[i, j]:4);
writeln;
end;
end
else
begin
writeln('Объединяем два вектора C и D.');
writeln('Новый вектор M');
for i := 1 to 6 do M[i] := C[i];
for i := 7 to 12 do M[i] := D[i - 6];
for i := 1 to 12 do writeln(M[i]:7);
end;
readln;
end.
У тебя дана формула =$A$3+$C$3. Значение столбцов и строчек меняться не будет, т.к стоит знак доллар, значит нужно просто 50+40=90
Ответ: 90