К примеру возьмём нарушение правил дорожного движения и пользования легко воспламеняющимися предметами.
Объяснение:
Если мы нарушим хотябы одно правило дорожного движения ничего доброго не случиться, все эти правила придуманы для нашей безопасности, поэтому, если мы будем переходить слишком часто дорогу на красный, не пропускать спец. службы, перебегать дорогу, превышать скорость и не читать знаки, если вы водитель, это все плохо закончится.
Если оставлять например дезодорант, или быллоны с газом где-нибудь около огня может произойти взрыв, или пожар. Также нужно быть осторожным с другими жидкостями со значком "Осторожно, воспламеняется!" От нарушения всех правил безопасности может быть плохо всем окружающим. Поэтому, если не хотите дойти до летального исхода читайте правила пользования!
Так как используются только 3 символа L, R и V, представим их как 0, 1 и 2 соответственно. В таком случае, каждую последовательность из букв (уже цифр) мы можем рассматривать как число в трехзначной системе счисления.
Можем проверить: в условии сказано, что на 100-ом месте стоит строка RLVLL. Так как список начинается с нуля (LLLLL), то на сотом месте должно стоять число 99. Переводим в трёхзначную сс (смотрите вложение) и получаем 10200₃. Подставляем вместо 0-R, 1-R, 2-V и получаем RLVLL -- всё верно.
Теперь перейдём к задаче: нам нужно узнать последовательности под номерами 8, 81, 98, 110, 179. Переводим их в трёхзначную сс, предварительно уменьшив на 1 (т. к. последовательность начинается с нуля). Также добавим лишние нули (L) слева при необходимости, чтобы последовательность состояла из 5 символов. Смотрим:
8 → 7₁₀ = 000 21₃ = LLLVR81 → 80₁₀ = 0 2222₃ = LVVVV98 → 97₁₀ = 10121₃ = RLRVR110 → 109₁₀ = 11001₃ = RRLLR179 → 178₁₀ = 20121₃ = VLRVR
var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(18)-6; тут присваивается каждому аргументу значение от 1 до 18 - 6 т.е от -5 до 12
for i:=1 to 12 do writeln(a[i]*a[12]); тут выводим умножив на последний аргумент
end.