Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
Здесь скорее логика, чем расчеты. Таблица обычно читается слева направо по строкам.
1) Для вершины А рассмотрим первую строку таблицы. Имеем значения только в столбцах с точками В и С. Это значит, что из вершины А есть ребро в вершину В с длиной 3 и в вершину С с длиной 3. На всех схемах есть такие рёбра, так что пока ответ не готов.
2) Идем далее, рассмотрим вторую строку таблицы с вершиной В. Вершину А можно пропустить, мы уже её рассматривали выше. Числа есть в колонках с вершинами C, D, E. Проверим каждую схему по очереди:
- BC=2, но на схемах №1 и №2 нет такого прямого ребра! Значит, дальше схемы №1 и №2 не рассматриваем! На схемах №3 и №4 рёбра ВС равны 2. Это подходит по условию.
- ВD=1, на схемах №3 и №4 такое ребро есть.
- BE=4, на схеме №3 такое ребро есть, а на схеме №4 такого ребра нет! Следовательно, единственной верной схемой является схема №3.
На этом можно и закончить решение задачи, а можно проверить до конца соответствие таблице: из вершины С есть ребро в вершину D и равно 5, что соответствует схеме №3 (вершины A, B не нужно проверять, это сделано раньше, когда рассматривали рёбра АС и ВС)
Ответ: таблица связей соответствует схеме №3
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
ReadlnString.ToUpper.Println('')
end.
<u><em>Тестовое решение:</em></u>
Это тестовая строчка
ЭТО ТЕСТОВАЯ СТРОЧКА
маршрутов (1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3)