4. 23
5. 15
Объяснение:
4.
Построим граф по данным таблицы (смотри картинку)
Рассчитаем длину всех путей из A в E через C
ACE = 4 + 20 = 24
ABCE = 2 + 2 + 20 = 24
ACBE = 4 + 2 + 18 = 24
ACBDE = 4 + 2+ 15 + 2 = 23
Кратчайший путь A в E через C равен 23
5.
Команды:
1) прибавь b
2) умножь на 2
Программа 11121 переводит 5 в 115
Распишем программу по командам (подставив начальное и конечные числа):
1) 5 + b
1) 5 + b + b
1) 5 + b + b + b
2) (5 + b + b + b) * 2
1) ((5 + b + b + b) * 2) + b = 115
Решим получившееся уравнение:
((5 + b + b + b) * 2) + b = 115
((5 + 3b) * 2) + b = 115
10 + 6b + b = 115
10 + 7b = 115
7b = 115 - 10
7b = 105
b = 105 / 7
b = 15
Проведем проверку (выполнив всю программу):
1) 5 + 15 = 20
1) 20 + 15 = 35
1) 35 + 15 = 50
2) 50 * 2 = 100
1) 100 + 15 = 115
4. 23
5. 15
Объяснение:
4.
Построим граф по данным таблицы (смотри картинку)
Рассчитаем длину всех путей из A в E через C
ACE = 4 + 20 = 24
ABCE = 2 + 2 + 20 = 24
ACBE = 4 + 2 + 18 = 24
ACBDE = 4 + 2+ 15 + 2 = 23
Кратчайший путь A в E через C равен 23
5.
Команды:
1) прибавь b
2) умножь на 2
Программа 11121 переводит 5 в 115
Распишем программу по командам (подставив начальное и конечные числа):
1) 5 + b
1) 5 + b + b
1) 5 + b + b + b
2) (5 + b + b + b) * 2
1) ((5 + b + b + b) * 2) + b = 115
Решим получившееся уравнение:
((5 + b + b + b) * 2) + b = 115
((5 + 3b) * 2) + b = 115
10 + 6b + b = 115
10 + 7b = 115
7b = 115 - 10
7b = 105
b = 105 / 7
b = 15
Проведем проверку (выполнив всю программу):
1) 5 + 15 = 20
1) 20 + 15 = 35
1) 35 + 15 = 50
2) 50 * 2 = 100
1) 100 + 15 = 115
var
A: array[1..8] of integer;
i,k,t:integer;
begin
for i:=1 to 8 do
Readln(A[i]);
for k:= 8 downto 2 do
begin
for i:=1 to k-1 do
begin
if A[i+1] < A[i] then
begin
t:=A[i];
A[i]:=A[i+1];
A[i+1] := t;
end;
end;
end;
for i:=1 to 8 do
Write(A[i],' ');
readln;
end.