procedure CutMyString(var s: string);
begin
Delete(s, pos('AAAA', s), 4);
Delete(s, pos('BABA', s), 1);
Delete(s, pos('ABC', s), 3);
if (pos('AAAA', s) = 0)
and (pos('BABA', s) = 0)
and (pos('ABC', s) = 0) then exit
else CutMyString(s);
end;
Pascal Разработайте рекурсивную процедуру
Помогите пожалуйста с задачкой, заранее блогадарен.
Задача на Pascal
Строка символов состоит из букв A,B,C. Разработайте рекурсивную процедуру преобразующую данную строку по правилу:
1) удаляет четыре подряд идущие буквы A
2)удаляет из последовательности BABA одну букву B
3)удаляет комбинацию ABC
Преобразование выполняется до тех пор пока ни одной из перечисленых комбинаций не останется
Задача на Pascal
Строка символов состоит из букв A,B,C. Разработайте рекурсивную процедуру преобразующую данную строку по правилу:
1) удаляет четыре подряд идущие буквы A
2)удаляет из последовательности BABA одну букву B
3)удаляет комбинацию ABC
Преобразование выполняется до тех пор пока ни одной из перечисленых комбинаций не останется