a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Всего за цикл чертежник перемещается на 5(0-2+4)=10 по х и 5(1+3-5)=-5 по у, то есть можно считать, что из начальной точки он один раз сместился на (10;-5) и попал в точку (-1;-1). чтобы узнать, где он был изначально, "перемещаем" его обратно, для этого нужно поменять знаки на противоположные. из (-1;-1) чертежник перемещается на (-10;5) и попадает в точку (-11;4)
ответ: 1)
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
10 * 2048 = 20480 символов
20480 * 8 = 163840 бит
1 байт = 8 бит
163840 / 8 = 20480 байт = 20 Кбайт
Если a>=0 то отрезок ЛЕЖИТ в I четверти