liliana :

Задание 12.   № 59805 (ЕГЭ по информатике 19.06.2023. Основная волна.)

Исполнитель Редактор получает на вход строку цифр и преобразует её.

НАЧАЛО
ПОКА нашлось (52) ИЛИ нашлось (1122) ИЛИ нашлось (2222)
    ЕСЛИ нашлось(52)  ТО заменить (52, 11)
    КОНЕЦ ЕСЛИ
    ЕСЛИ нашлось(2222)  ТО заменить (2222, 5)
    КОНЕЦ ЕСЛИ
    ЕСЛИ нашлось(1122)  ТО заменить (1122, 25)
    КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ

На вход  программы поступает строка, начинающаяся с цифры «5»,
а затем содержащая n цифр «2» (3 < n < 10 000).

Определите наименьшее значение n, при котором сумма цифр в строке,
получившейся в результате выполнения программы, равна 64.

 begin
   for var n:=4 to 1000 do begin
      var s := ’5’+ n*2; 

     while (’52’ in s) or (’1122’  in s) or (’2222’ in s)  do

        begin
          s := s.replace (’52’, ’1’, 1);
          s := s.replace (’2222’, ’5’, 1);   
          s := s.Replace (’1122’, ’25’, 1);
        end;

      if  s.CountOf (’1’) + s.CountOf (’2’)*2 + s.countof (’5’)*5 = 88  then begin
            print(n);     break;
            end;
    end;
end. 

Ответ: 413