begin
var (n, m) := ReadlnInteger2;
var (sm, tm):= ('', integer.MaxValue);
for var i := 1 to n do
begin
var s := ReadlnString;
var t := ReadSeqInteger(m).Sum;
ReadlnString;
if t < tm then
(sm, tm) := (s, t)
end;
Write(sm)
end.
<u>Замечание.</u> Строки могут содержать любые символы., а не только латинские буквы.
Смещение вне цикла составляет (-12, 21), т.е. смещение внутри цикла = (12, -21)
Числа 11 и 5 не представляют никакого интереса, т.к. нам не требуется искать значения a и b, важно только то, что мы можем менять сдвиг в цикле как угодно, меняя только эти переменные.
Максимальное N = НОД(12, 21) = 3
Т.е. чертежник сдвигается на (12, -21), три раза выполнив операцию сдвига на (4, -7)
Технология ( урок) по другому труд
¬(A ∨ ¬B) ∨ ¬(A ∨ B) ∨ (A ∧ B) =
(¬A ∧ B) ∨ (¬A ∧ ¬B) ∨ (A ∧ B) =
¬A ∧ (B ∨ ¬B) ∨ (A ∧ B) =
¬A ∨ (A ∧ B) =
¬A ∨ B