Соотнесение таблицы и графа

16

Объяснение:

Рассмотрим граф и таблицу.

На графе у нас есть 2 вершин из которых идёт  по 1 пути. Это вершины Б и Е. В таблице они могут соответствовать пунктам П1 и П7.

Дороги из них идут в вершину В. По таблице определим в какой пункт идут дороги из П1 и П7. Это П4. Значит вершине В соответствует пункт П4.

На графе есть ещё одна вершина из которой идёт 4 дороги. Это вершина Г. Смотрим по таблице какой пункт (кроме П4) соединён ещё с 4 пунктами. Это П3. Значит вершине Г соответствует пункт П3.

Так как вершина А соединена с В и Г, найдём в таблице такой пункт, который соединён с П3 и П4. Это П2. Значит вершине А соответствует пункт П2.

Посмотрим в таблице расстояние между П2 и П4 (А и В). Оно равно 16.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.