между населёнными пунктами A B C D E F построены дороги, протяжённость которых приведена в таблице. - id1163089620220508 от pvpgaydukoxzb3r 08.05.2022 05:11

Question

Информатика: между населёнными пунктами A B C D E F построены дороги, протяжённость которых приведена в таблице. отсутствие числа в таблице означает, что прямой дороги между пунктами нет. Определите длину кратчайшего пути между пунктами В и С,проходящего Через пункт F. Передвигаться можно только по указанным дорогам .​

pvpgaydukoxzb3r · Accepted Answer

Program z18;  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin  write( Введите строку - ); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i = l do  begin    while (s[i] ) and (i = l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 2;  min:=a[1].Length;  while (a[i] ) do  begin    l:=a[i].Length;    if (l min) then h:= i;    i:= i + 1;  end;  writeln(a[h]);End. Program z19;  Var a: array [1..1000]...

MOGZ ответил