Нужно составить нормальный алгоритм Маркова! Алфавит ABCD. Заменить каждый чётный элемент...

Question

Нужно составить нормальный алгоритм Маркова! Алфавит ABCD. Заменить каждый чётный элемент на C и каждый 4ый на D.

Answer 1

Program Markov;
uses crt;
var a:string; i,b:integer;
begin
Clrscr;
writeln('Введите слово ');
read(a);
b:=length(a);
for i:=1 to b do begin
If i mod 4 = 0 then
begin
delete(a,i,1);
insert('D',a,i);
end else
If i mod 2 =0 then begin
delete(a,i,1);
insert('C',a,i);
end;

end;

writeln(a);
readln;
end.

Comments

Спасибо, но мне нужен именно алгоритм Маркова, то есть последовательная замена символов) Типа 'AABC' заменить на 'ACBD' А не код((

---

а что Вы так изменили взгляд на моё решения )

---

А других нет, да и не изменил я взгяд) Просто уже закрыть тему решил) Нужен алгоритм, который будет на ленте заменять)