14 из егэ. не сходится какая строка получится в результате применения ниже программы к строке, состоящей из 99 единиц? начало пока нашлось (111) если наш лось (222) то заменить (222, 1) иначе заменить (111, 2) конец если конец пока конец , ответ же 2? я туплю сижу, т.к. в ответах написно 22211, но 222 - это 1 и 111 - это

Имеем строку из единиц длиной 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

Var c: char; begin readln(c); if ord(c)< 97 then     c: =chr(ord(c)+32)     else c: =chr(ord(c)-32); writeln(c); end.