На рисунке справа схема дорог н-ского района изображена в виде графа, в таблице содержатся сведения о
длинах этих дорог (в километрах). так как таблицу и схему рисовали независимо друг от друга, то
нумерация населенных пунктов в таблице никак не связана с буквенными обозначениями на графе.
определите длину кратчайшего маршрута между пунктами а и г. передвигаться можно только по
указанным дорогам.
пі п2 пз п4 пs п6 п7 18
п1 5 20
п2 58
п38
24 22
п4 20
п5
13 | 169
п6
24 | 13 | 15
п7
| 12 | 16
п87 22 915
12
b

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел