<span>Комбинация клавиш ctrl +page down</span>перемещает к следующему изменению
расположения.
Лучший ответ плиз:)
Var i,num,s:integer;
arr:array of integer;
begin
readln(num);
setlength(arr,num);
for i:=0 to num-1 do begin
read(arr[i]);
if i>1 then begin
if (arr[i-2]<arr[i-1]) and (arr[i]<arr[i-1]) then s+=1;
end;
end;
writeln('',s);
end.
Вот так, вроде бы))))))))
Если тебе нужно перевести в десятичную сс то ответ 403
Имеем строку из единиц длиной 99 символов.
Пока в строке имеется подстрока 111, выполняется цикл.
Подстрока 111 заменяется на 2 и это уменьшает длину строки на 2 символа.
Эта операция повторяется, пока не появится подстрока 222, что достигается за три прохода по циклу. При этом длина строки в целом сократится на 6.
Подстрока 222 заменяется на 1, после чего получается строка исходного вида (из одних единиц), но с длиной на 8 меньше исходной.
Этот процесс будет повторятся и длина строки последовательно будет такой:
99, 91, 83, ... 11. Можно предположить, что строка окончательно примет длину 99 mod 8 = 3, но все немного сложнее.
Дело в том, что строка длиной 11, т.е. 1111111111 будет последовательно преобразована к
211111111
2211111
22211
и после этого цикл закончится, поскольку подстроки 111 больше найдено не будет.
Ответ: 22211