# (S1 и S2). Если

(S1 и S2). Если S1&gt;S2, то начиная с первого всегда берутся элементы последовательности с нечетных мест, в противном - с четных. Номер хода Последователь-ность S1 S2 1 27 5 1 28 6 2 0 2 5 1 28 6 2 27 3 1 28 6 7 27 4 1 28 7 33 5 1 35 33 6 35 34 Пример. r98_3 Классический вариант переборной задачи. Определим основные структуры данных. Элемент массива Nnew (array[char] of boolean) показывает, присвоен ли соответствующему символу его числовой эквивалент. В Num (array[char] of char) хранятся цифры (представленные в типе данных char), присвоенные символам исходной строки. И наконец, элемент P (array[0..9] of boolean), равный false, говорит о том, что соответствующая цифра уже задействована при разгадывании ребуса. Итак, основная логика. Procedure rec(k:word;var s:string); {k - номер позиции в исходной строке, s - преобразованная строка ребуса, вместо исходных символов записаны символы соответствующих цифр, str - исходная строка} var i:word; begin if k&gt;length(str)

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа