Между населёнными пунктами а, в, с, d, е, f построены дороги, протяжённость которых в таблице: определите длину кратчайшего пути между пунктами а и f. передвигаться можно только по дорогам, протяжённость которых указана в таблице. 1) 6 2) 7 3) 8 4) 9
Смотри дружище: Мы идём вниз с А до В (это 2) И оттуда идём направо к букве F(это 5) Получаем: 2+5=7 Твой ответ: 7
Gor Anatolevich
10.01.2023
6
Объяснение:
ABCEF = 2 + 2 + 1 + 1 = 6 - это минимальное число из вариантов ответа, а значит кратчайший путь между пунктами А и F
bellaalya13862
10.01.2023
Const N = 7; // количество наименований товаров Var A:array[1..N,1..3] of integer; i,k,S:integer; Begin For i:= 1 to N do Read(A[i,1],A[i,2],A[i,3]); k:=0; For i:= N downto 1 do if A[i,2] = 0 then k:=i; if k > 0 then Begin Write('00 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 0 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 1 then k:=i; if k > 0 then Begin Write('01 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 1 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 10 then k:=i; if k > 0 then Begin Write('10 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 10 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 11 then k:=i; if k > 0 then Begin Write('11 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 11 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; End.
Мы идём вниз с А до В (это 2)
И оттуда идём направо к букве F(это 5)
Получаем: 2+5=7
Твой ответ: 7