===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
У этой гусеницы цикл 5 сек. Т. е. каждые 5 секунд она одинаковая.
Значит через 2015 сек она будет такой же, как изначально. А потом, ещё через 4 сек она станет (начинаю с головы) Желто-Сине-Зелёно-Чёрно-красная
В программе последовательно определяются номера элементов (num), имеющих знак, противоположный знаку предыдущих (предыдущего) элемента (<span>Dat[k]*m < 0</span>). Переменная num в цикле последовательно будет принимать значения 2, 3, 5, 6, 8, 9. После цикла будет выведено последнее значение num. (У элемента Dat[10] знак совпадает со знаком элемента Dat[9].)
Так, если двоичная система счисления.