Дана последовательность чисел:12323. К ней применён следующий цикл обработки: 1. Все цифры "1" заменить на "33" 2. Все цифры "2" заменить на "1" 3. Все цифры "3" заменить на "2" например, после однократного выполнения этого цик...
Дана последовательность чисел: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.
Не нашли ответ?
Похожие вопросы