Question

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

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

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

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

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

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

Answer 1

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.