Дана последовательность чисел:12323. К ней применён следующий цикл обработки:

1. Все цифры "1" заменить на "33"

2. Все цифры "2" заменить на "1"

3. Все цифры "3" заменить на "2"

например, после однократного выполнения этого цикла обработки получится последовательность S=221212

Запишите количество цифр в получившейся последовательности, если цикл применялся 14 раз.

Var i,j: integer;
chislo: string;
begin
chislo:=12323;
 for j:=1 to 14 do
  begin
  i:=1;
  while i<=length(chislo) do
   begin
   if copy(chislo,i,1)=1 then begin delete(chislo,i,1);insert(33,chislo,i); inc(i); end;
   inc(i);
   end;
  i:=1;
  while i<=length(chislo) do
   begin
   if copy(chislo,i,1)=2 then begin delete(chislo,i,1);insert(1,chislo,i);  end;
   inc(i);
   end;
  i:=1;
  while i<=length(chislo) do
   begin
   if copy(chislo,i,1)=3 then begin delete(chislo,i,1);insert(2,chislo,i); end;
   inc(i);
   end;
 end;
Writeln(chislo);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.