сначала прикрепляются вот это спинка потом к ней прикрепляется вот эти две доски тонких длинных потом делают половинку тоски вот этих досок потом это сидение
Имеем строку из единиц длиной 99 символов. Пока в строке имеется подстрока 111, выполняется цикл. Подстрока 111 заменяется на 2 и это уменьшает длину строки на 2 символа. Эта операция повторяется, пока не появится подстрока 222, что достигается за три прохода по циклу. При этом длина строки в целом сократится на 6. Подстрока 222 заменяется на 1, после чего получается строка исходного вида (из одних единиц), но с длиной на 8 меньше исходной. Этот процесс будет повторятся и длина строки последовательно будет такой: 99, 91, 83, ... 11. Можно предположить, что строка окончательно примет длину 99 mod 8 = 3, но все немного сложнее. Дело в том, что строка длиной 11, т.е. 1111111111 будет последовательно преобразована к 211111111 2211111 22211 и после этого цикл закончится, поскольку подстроки 111 больше найдено не будет.
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
сначала прикрепляются вот это спинка потом к ней прикрепляется вот эти две доски тонких длинных потом делают половинку тоски вот этих досок потом это сидение
я думаю так))